根据另一个单元格中的条件将单元格从一个工作表复制到另一个工作表

Question

我想使用 VBA 根据某些单元格的条件在两个工作表中是否匹配，将单元格从一张工作表复制到同一工作簿中的另一张工作表。

示例：如果 Sheet1!A1 = Sheet2!A1 然后将 Sheet1!B1 复制到 Sheet2!B2

我可以通过一个函数来做到这一点： =IF($A1=Sheet1!$A1, VLOOKUP(Sheet1!$A1, Sheet1!$A1:$D1, 2),"")但我很茫然让它在VBA。 我想过 IF|ELSE 语句，但无法让它发挥作用。

Answer 1

这应该适合你：

For Counter = 1 To 10 
    If Sheets(1).Range("A" & Counter).Value = Sheets(2).Range("A" & Counter).Value Then
        Sheets(2).Range("B" & (Counter + 1)).Value = Sheets(1).Range("B" & Counter).Value
    End If
Next Counter

Answer 2

Sub copyToSheet()
For i = 1 To 10
    If ThisWorkbook.Worksheets("sheet1").Range("A1").Offset(i - 1, 0).Value = ThisWorkbook.Worksheets("sheet2").Range("A1").Offset(i - 1, 0).Value Then
    ThisWorkbook.Worksheets("sheet2").Range("A1").Offset(i - 1, 1) = ThisWorkbook.Worksheets("sheet1").Range("A1").Offset(i - 1, 0).Value
    End If
    Next i
End Sub