Excel VBA：如何创建宏来复制字段，位置根据相同的值决定

Question

我正在努力解决以下问题： 我想将一系列字段（E18：BE18）从sheet1复制到Sheet 2。 但问题是，应该复制的行取决于sheet1.C15中的值。该值应在Sheet2的B列中找到。

例如，如果Sheet2.B10具有与Sheet1.C15相同的值，则应将范围Sheet1。（E18：BE18）复制到Sheet2。（E10：BE10）。

谢谢！

Answer 1

您可以使用此代码

Dim objSheetA As Worksheet
Dim objSheetB As Worksheet

Set objSheetA = Worksheets("SheetA")
Set objSheetB = Worksheets("SheetB")

If objSheetB.Cells(10, 2).Value = objSheetA.Cells(15, 3).Value Then
     objSheetA.Range(Cells(18, 5), Cells(18, 57)).Select
     Selection.Copy
     objSheetB.Select
     objSheetB.Cells(10, 5).Select
     ActiveSheet.Paste
End If