VBA 嵌套 For 循环导致 Excel 崩溃

Question

我目前正在尝试从两个单独的工作表创建所有可能的条目组合的列表，但每当我尝试运行它时，Excel 都会在大约 20 秒后崩溃。有没有人有任何关于如何使其更有效的提示，或使其工作的方法？谢谢!

Sub Create()
Dim dates, groups, current As Integer
Dim dateValue As Date
Dim groupValue As String
Dim cell As Long

Application.ScreenUpdating = False
Sheets(3).Cells.Clear
cell = 1

For dates = 1 To 730

    Sheets(1).Select
    dateValue = Cells(dates, 1).Value

    For groups = 1 To 155

        Application.StatusBar = dateValue & " " & groupValue

        Sheets(2).Select
        groupValue = Cells(groups, 1).Value

        Sheets(3).Select

        Cells(cell, 1) = dateValue
        Cells(cell, 2) = groupValue

        cell = cell + 1

    Next groups

Next dates

Application.StatusBar = False
Application.ScreenUpdating = True

End Sub

Answer 1

删除 .Select 调用。

groupValue = Sheets(2).Cells(groups, 1).Value

优于

Sheets(2).Select
groupValue = Cells(groups, 1).Value

.Select 速度慢、成本高且不必要。

状态栏真的更新了吗？这样做10万次同样是一个瓶颈；使用 mod 计数器更新每 n 次迭代。