第2个回答 2008-06-03
用VBA
把要筛选的一行数据放在第一行,假如这一行总共有3列,则用以下代码:
dim hs as long
for hs=2 to 65536
if cells(hs,1)=cells(1,1) and cells(hs,2)=cells(1,2) and_
cells(hs,3)=cells(1,3) then
rows(hs).select
rows(hs).RowHeight=你要设置的行距值
next
第5个回答 2008-06-03
用VBA
把要筛选的一行数据放在第一行,假如这一行总共有3列,则用以下代码:
dim hs as long
for hs=2 to 65536
if cells(hs,1)=cells(1,1) and cells(hs,2)=cells(1,2) and_
cells(hs,3)=cells(1,3) then
rows(hs).select
rows(hs).RowHeight=你要设置的行距值
next