第2个回答 2011-03-10
首先在表中输入相应的内容
例如:
第一行:A1 1
第二行:A2 2
第三行:A3 3
第四行:A4 4
..........................
然后点击“工具”——“宏”——“VB编辑器”在弹出的代码窗口中输入下面代码:就可以删除A列中为2的所有行。
Sub myhide()
For i = 1 To 10
If Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 256))) = 2 Then
Rows(i).Hidden = True
ElseIf Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 256))) > 2 Then
Rows(i).Hidden = False
End If
Next
End Sub
欢迎采纳!本回答被提问者采纳