使用切换按钮取消隐藏多行

Question

对 VBA 很陌生，并且一直在网上学习。我在 Excel 电子表格中隐藏了行，并希望它们在单击我命名为“添加行”的切换按钮时取消隐藏。因此，当我单击它时，它会一直取消隐藏，这很好，但我喜欢一次取消隐藏 3 行。目前它一直一次隐藏一排。 注意：我不是想隐藏行。只是取消隐藏。

按钮中的当前宏是：

Sub Affiliates_Button4_Click()
  Dim i As Long
  If Columns("n").SpecialCells(xlCellTypeVisible).Count = Rows.Count Then Exit Sub
  i = 8 + 1
  Do Until Rows(i).Hidden = True
    i = i + 1
  Loop
  Rows(i).Hidden = False
End Sub

Answer 1

循环直到遍历所有行，直到找到 3 个要取消隐藏的隐藏行。您还应该对要检查的行数有一些上限。 max number of rows in Excel is 1048576。

  Sub Affiliates_Button4_Click()
  Dim i As Long
  Dim j As Long
  j = 0
  i = 8 + 1
  Do Until j > 2 Or i >= 1048576
    i = i + 1
    If Rows(i).Hidden = True Then
        j = j + 1
        Rows(i).Hidden = False
    End If
  Loop
End Sub