VBA для вставки и приращения формулы в ячейке

Question

Я это VBA

Sub ApplyCV() 
Range("H2:H5000").Formula = "=GetPattern($A2)" 
End Sub 

Который в основном применяет пользовательскую функцию «= GetPattern», чтобы выполнить макрос с тем же именем. Это прекрасно работает.

Однако, вместо того, чтобы явно указывать диапазон (который будет меняться в зависимости от каждого набора данных), я хотел бы увеличить формулу в цикле UNTIL последней строки данных или до тех пор, пока в A нет значения ячейки: что угодно.

Любая помощь с этим была бы с благодарностью принята.

Большое спасибо

Answer 1

Попробуйте найти последнее значение в колонке А (если смотреть снизу вверх) и с помощью строки этой ячейки, чтобы определить степень диапазона в колонке H, что формула применяется.

Range("H2:H" & cells(rows.count, 1).end(xlup).row).Formula = "=GetPattern($A2)"