vba - 运行宏会导致 Excel 崩溃

Question

我正在尝试运行一个宏，但现在它一直卡住excel。
它运行 10 个单元格，但是当宏应用于近 200 个单元格时，它会卡住并崩溃。

Sub eancheck()

    Dim s1 As Worksheet, s2 As Worksheet
    Dim Msg As String
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet3")
    Dim lr1 As Long, lr2 As Long
    lr1 = s1.Range("A" & Rows.Count).End(xlUp).Row
    lr2 = s2.Range("a" & Rows.Count).End(xlUp).Row
    Dim i As Long, j As Long
    Application.ScreenUpdating = False
    For i = 2 To lr1
   s1.Cells(i, "D").Interior.ColorIndex = 0
        For j = 2 To lr2
            If s2.Range("A" & j) = s1.Range("D" & i) Then
                's1.Range("D" & i) = s2.Range("B" & j)
                s1.Cells(i, "D").Interior.ColorIndex = 3
            End If
        Next j
    Next i
    Application.ScreenUpdating = True

End Sub

我也遇到了其他宏的问题，我认为是因为范围的大小。我该如何解决？

注意:宏在工作表中搜索 10 个值时运行，该表有两列，每列几乎 200.000 个值，但是当 10 不是 200 时，崩溃。

Answer 1

在您的 sheet1 中使用带有公式的条件格式并将其应用于 D2:D5000 或任何合适的范围。

=COUNTIF(Sheet3!A2,D2)>0