Sub 隐藏履历()
Dim i As Integer
For i = 1 To 20
If Range("c" & i * 39 + 3).Value = "" Then
Rows((i * 39 + 1) & ":" & (i + 1) * 39).Select
Selection.EntireRow.Hidden = True
End If
Next
End Sub
这是一段根据条件隐藏宏,这个工作表中每39行一个表,有20个表,希望每个表的C列的第三个单元格为空的时候,此39行隐藏,(隐藏一个表)我现在这个宏为什么不行,请高手找出毛病,谢谢!!