根据另一个单元中的条件将单元格从一个表单复制到另一个表单
我想要使用VBA将单元格从一张纸复制到同一工作簿中的另一张纸上，基于某些单元格的标准是否匹配两张纸。
例如：如果Sheet1！A1 = Sheet2！A1然后将Sheet1！B1复制到Sheet2！B2
我可以通过一个函数来实现： =IF($A1=Sheet1!$A1, VLOOKUP(Sheet1!$A1, Sheet1!$A1:$D1, 2),"")但是我不知道如何工作VBA。 我想过一个IF | ELSE的声明，但不能得到它的工作。
这应该为你工作：
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
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