VBA在单元格中插入和增加公式

Question

我有这个VBA

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

其中基本上应用自定义函数“= GetPattern”来执行同名宏。这很好。

然而，我没有明确说明范围（随每个数据集而变化），而是想在循环UNTIL最后一行数据上增加公式，或直到A中没有单元格值为止。

将非常感激地收到任何帮助。

非常感谢

Answer 1

尝试查找A列中的最后一个值（从下往上看）并使用该单元格的行来定义应用公式的H列范围的范围。

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