vba - 当我使用按钮运行宏时，由于内存不足，excel 无法完成

Question

我的宏将一组单元格的值设置为 1，稍后它根据日常条件将其中一些单元格设置为 0(总共 5232 个单元格)。我想把这个宏放在一个按钮后面，如果我通过按钮运行它，我会立即收到错误消息。

Excel cannot complete this task with available resources.
Choose less data or close other applications.

Private Sub CommandButton1_Click()

Dim atado As String
Dim LastRow As Long
Dim i As Long
Dim j As Long
Dim elsoora As Long
Dim utolsoora As Long

Sheets("Maszk").Select
Range("C4", Range("HL4").End(xlDown)).Value = 1
(...)
End Sub

Answer 1

该代码正在尝试设置 2.28 亿个单元的值(可能)。这么多，自己看吧。在 VBA 中始终引用正确的工作表是个好主意，否则会出现各种错误。

Sub TesteMe()
    With Worksheets("SomeName")
        MsgBox .Range("C4", .Range("HL4").End(xlDown)).Cells.Count
    End With
End Sub

但是，您可以通过调整 Application.ScreenUpdating 对其进行一些升级。离开。像这样: Application.ScreenUpdating = False在代码的开头和 Application.ScreenUpdating = True在代码的末尾。