在Excel中使用VBA查找和更新与工作表不同的工作表上的相关记录

Dim sourceSheet As Worksheet
Set sourceSheet = ThisWorkbook.Sheets("Sheet1")

Dim targetSheet As Worksheet
Set targetSheet = ThisWorkbook.Sheets("Sheet2")

Dim sourceRow As Long
Dim targetRow As Long

For sourceRow = 2 To sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    For targetRow = 2 To targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
        If sourceSheet.Cells(sourceRow, "A").Value = targetSheet.Cells(targetRow, "A").Value Then
            ' 找到匹配的记录，可以在这里更新相关数据
            targetSheet.Cells(targetRow, "B").Value = sourceSheet.Cells(sourceRow, "B").Value
            Exit For
        End If
    Next targetRow
Next sourceRow