VBA代码，用于在另一张工作表中查找单元格数据并进行更新

Question

我有sheet1-这是客户的主文件。 Sheet2-每周更新任何新客户。我想要的是，如果Sheet2上有任何新客户，那么他们需要在sheet1上进行更新。

您会在图像上看到-sheet2上有3个新客户，我希望在sheet1上有新客户。

请提供有关VBA代码的帮助，该代码将从sheet2中获取新数据并更新sheet1。只需要Sheet2的A列中的数据。

Answer 1

尝试以下

Sub TEST()
    Dim var, i As Variant
    Dim sheet1 As Worksheet
    Dim sheet2 As Worksheet
    Set sheet1 = Worksheets("Sheet1")
    Set sheet2 = Worksheets("Sheet2")
    sheet1lastrow = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    sheet2lastrow = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To sheet2lastrow
            var = Application.Match(sheet2.Range("A" & i), sheet1.Range("A:A"), 0)
            If IsError(var) Then
                sheet1.Range("A" & sheet1.Range("A" & Rows.Count).End(xlUp).Row + 1).Value = sheet2.Range("A" & i).Value
            End If
    Next i
End Sub

OP