Как вставить в строку на основе значения столбца

Question

Возможно, он уже здесь, и я пропустил его, но мне трудно понять, как изменить свой код с вставки в последнюю строку до вставки в конкретную строку.

Каждый набор данных имеет уникальныйчисло в столбце А. Мне нужно вставить массив в строку, которая соответствует уникальной ссылке на листе ввода данных.

Так что, если на листе ввода данных (Enter Action), есть «123» в ячейке C3,Мне нужно, чтобы он посмотрел на базу данных (RAW DATA) и нашел строку с «123» в столбце A и вставил массив в эту строку.

Я только когда-либо вставлял в последнюю строку ранее и нене знаю, как изменить приведенный ниже код, чтобы сделать то, что мне нужно.

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