请求效率提示

Question

我想说明我发布的代码是有效的！我的要求是，我想使这段代码更有效率。我仍然是VBA的新手，虽然我越来越好:)代码如下：

Private Sub CommandButton4_Click()

Dim MyLastRow As Long
Dim i As Long
Dim cellmatch

'Find the last row
MyLastRow = Cells(Rows.Count, "C").End(xlUp).Row


'Compare Records cell to Raw Data column and find a match
For i = 2 To MyLastRow

'Define our comparison
cellmatch = Application.Match(Cells(i, "C").Value, Worksheets("Sheet1").Columns(1), 0)
    If IsError(cellmatch) Then
        Cells(i, 4).Value = "Not in Physical Inv"
    Else
        Cells(i, 4).Value = "-"
    End If

Next i

End Sub

代码查看C列中的单元格。然后在A列中找到重复项。如果找到它，则为“ - ”。如果没有，它会说'不在Phys Inv'。我的要求是，如何使这段代码更有效率？此外，如果这是一个针对不同论坛的问题，请告诉我。我将尽可能地将其关闭，并将其移至适当的位置。