[已解决]怎么把多行隐藏

10210578

又来问问题了 这次两个问题
我想把第一页(after)变成第二页(before)要如何写呢?

假如1 2 3 各行数每次都不同，要如何隐藏?

最佳答案

月排行榜 / 总排行榜

zjdh

2014-9-18 15:26

如果各行内容不相同则
Sub yc2()
    For I = 2 To Range("A65536").End(3).Row + 1
        If Cells(I, 1) = "" Then GoTo 10
        If Cells(I + 1, 1) <> "" And Cells(I - 1, 1) <> "" Then Rows(I).Hidden = True
10  Next
End Sub

跳转到最佳答案楼层

zjdh

第一个问题
Sub yc()
   For I = 2 To Range("A65536").End(3).Row
       If Cells(I, 1) = Cells(I - 1, 1) And Cells(I, 1) = Cells(I + 1, 1) Then Rows(I).Hidden = True
   Next
End Sub

第二个问题不明白！

zjdh

如果各行内容不相同则
Sub yc2()
    For I = 2 To Range("A65536").End(3).Row + 1
        If Cells(I, 1) = "" Then GoTo 10
        If Cells(I + 1, 1) <> "" And Cells(I - 1, 1) <> "" Then Rows(I).Hidden = True
10  Next
End Sub

10210578

感谢
已经解决了
参考来学习学习