Excel-VBA：高性能表更新

Question

我有一个工作代码可以更新Sheet＆＃34; B＆＃34;参考Sheet＆＃34; A＆＃34;中的条目。但是，代码很慢（表格非常庞大）。任何人都可以告诉我如何更有效地做到这一点吗？

Sub UpdateList()
    Dim i As Integer
    Dim c As Range

    Application.ScreenUpdating = False

    For i = 1 to 1000
        For Each c in Sheets("A").Range("C8:C10000").Cells
            If c.value = i Then
                Sheets("B").Range("D" & i) = Sheets("B").Range("D" & i).value & "; " _
                & Sheets("A").Range("X" & c.Row).value
            End if
        Next c
    Next i

    Application.ScreenUpdating = True

End

我很好奇我能做得更好。谢谢！