如何根據列的值粘貼到一行

Question

它可能已經在這里，我錯過了它，但我無法弄清楚如何將我的代碼從粘貼更改為最后一行到粘貼到特定行。

每個數據集在A列中都有一個唯一的編號。我需要將Array粘貼到與數據條目表上的唯一引用匹配的行中。

因此，如果數據條目表（Enter Action）在單元格C3中有“123”，我需要它來查看數據庫（RAW DATA）並在A列中找到帶有“123”的行並將Array粘貼到此行中。

我以前只粘貼到最后一行，不知道如何更改下面的代碼來做我需要的。

Dim vCopy, i As Long, rPaste As Range
vCopy = Array("C3", "C5", "Q26", "C7", "C9", "Q26", "C11", "C13", "C15", "G13", "G3", "C17", "G7", "G9", "K3", "G11", "K9")

Set rPaste = Sheets("RAW DATA").Cells(Rows.count, 1).End(xlUp)(2)

For i = LBound(vCopy) To UBound(vCopy)
  rPaste.Value = Sheets("Enter Action").Range(vCopy(i)).Value
  Set rPaste = rPaste.Offset(, 1)
 Next i

Answer 1

您可以使用Find ：

Dim vCopy, i As Long, f As Range, lookFor

vCopy = Array("C3", "C5", "Q26", "C7", "C9", "Q26", "C11", "C13", "C15", _
              "G13", "G3", "C17", "G7", "G9", "K3", "G11", "K9")

lookFor = Sheets("Enter Action").range("c3").value
Set f = Sheets("RAW DATA").Columns(1).find(lookFor, lookat:=xlWhole)

If not f is nothing then
    For i = LBound(vCopy) To UBound(vCopy)
        f.Offset(0, i).Value = Sheets("Enter Action").Range(vCopy(i)).Value 'fixed#2
    Next i
End If