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

我有这个VBA

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

基本上应用自定义函数“= GetPattern”来执行相同名称的macros。 这工作正常。

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

任何帮助，将受到感谢。

非常感谢

Answer 1

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

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