能不能做到让符合条件的单元格所在的列自动隐藏

chengyunqw@126.

比如说第一行的第一个单元格=1那么就自动隐藏第一行？
解答用vba。

Sub 隐藏()
for i=1 to x x--行号
if sheets(1).cells(i,1)=1 then
Rows(i).Select
Selection.EntireRow.Hidden = True
end if
next i