Excel VBA: вызывать абсолютную ячейку из динамической ссылки

Question

У меня есть рабочий лист, где код находится в столбце A, затем макрос смещает ссылку на строку и копирует ее обратно на другой лист.

Я хотел бы изменить это так, что макрос просматривает диапазон столбцов, скажем, столбцы A к E, находит код, то смотрит вдоль ряда, чтобы забрать из колонки F, затем так далее.

Это мой код в его нынешнем виде; это, очевидно, работает только для одного столбца кода, поскольку он использует Offset. Я должен также указать, что в столбцах A, B, C и/или D могут быть коды, поэтому поиск следующей пустой ячейки не будет работать.

''code above here for rest of macro 
'' ws refers to the destination worksheet 
''c is the code, in this case in column A but will be in columns A, B, C or D 
ws.Range("A" & lastRow) = c.Offset(, 1) 
ws.Range("B" & lastRow) = c.Offset(, 2) 
'' code below to continue similarly 

Надеюсь, что это имеет смысл!

---

Название отредактирован 'абсолютной ячейки'

Answer 1

возможно что-то с помощью .Row

, например

Cells(ActiveCell.Row, "A") 

это будет идти в колонну A в той же строке, что является так же как и смещение столбца, но вы можете перейти в столбец A из любого столбца, не имея нескольких offset

редактировать

testc = Worksheets("Sheet1").Range("A:A").Find(code).address 
Range(testc).Select 

Sheets("Sheet1").Cells(ActiveCell.Row, "B").Copy _ 
    Destination:=Sheets("Sheet1").Range("A" & lastrow)