缓慢的 Excel VBA 循环 - 寻找改进建议 [关闭]

Question

关闭。 此问题不符合Stack Overflow 准则。 它目前不接受答案。

---

想改善这个问题吗？ 更新问题，使其成为 Stack Overflow的主题。

去年关闭。

改进这个问题

我在 Excel 中创建了一个 VBA 宏，链接到一个隐藏或取消隐藏特定行的按钮。

我希望该按钮能够隐藏/取消隐藏第 5 行和第 6 行、第 10 行和第 11 行、第 15 行和第 16 行、20、21、25、26、30、31 等……大约到第 400 行。

下面是我用来实现这一目标的两个宏，它们都可以工作，尽管顶部的比底部的略快。

任何人都可以建议进一步改进的方法吗？

Private Sub HidePlannedNEW_Click()

    Dim i As Long

    For i = 5 To 50 Step 4

        If Rows(i).Hidden = False Then
            Rows(i).Hidden = True
            i = i + 1
            Rows(i).Hidden = True

        ElseIf Rows(i).Hidden = True Then
            Rows(i).Hidden = False
            i = i + 1
            Rows(i).Hidden = False

        End If

    Next i

End Sub

（为了让第二个宏工作，我在想要隐藏的行中创建了一个带有字母“P”的辅助列）

Private Sub HidePlannedOLD_Click()

    For Each i In ActiveSheet.Range("D4:D600")

        If i.EntireRow.Hidden = False And i.Value = "P" Then
             i.EntireRow.Hidden = True

        ElseIf i.EntireRow.Hidden = True And i.Value = "P" Then
             i.EntireRow.Hidden = False

        End If

    Next i

End Sub

提前谢谢了！

Answer 1

首先是一般性评论：

在您的第一个宏中，有一件事让我感到害怕：您修改了计数器变量，这可能会导致无法预料的结果。 代替：

For i = 5 To 50 Step 4

    If Rows(i).Hidden = False Then
        Rows(i).Hidden = True // at the first step, i = 5
        i = i + 1
        Rows(i).Hidden = True // now i = 6, so step 4 will cause i = 10
                              // this is indeed what you want, but it makes your code
                              // unreadable (imagine you look at this again within a year,
                              // will you still understand what you have written here?)

请执行下列操作：

For i = 5 To 50 Step 5

    If Rows(i).Hidden = False Then
        Rows(i).Hidden = True
        Rows(i + 1).Hidden = True

现在，就您的问题而言：我相信您将一行接一行地隐藏起来，但在这篇文章中，解释了如何将单元格合并到一个范围内。 您可以将单元格组合到一个范围内，获取该范围内的整行，并且只执行一个.Hidden = True命令，这将减少屏幕更新量并提高宏的速度。