vba - 宏中从 A 列到最后一列的自动填充公式

Question

我试图制作一个宏，它将采用单元格 B358 到 B362 中的公式并将这些行自动填充到第 2 行中使用的最后一列。

我是 VBA 的新手，通过搜索这样的论坛完全自学，但不幸的是我没有找到我的解决方案。

请帮我

编辑：

如果你需要看一些代码，我可以给你一个非常基本的例子

Sub Macro1()

    Range("B358:B362").Select
    Selection.AutoFill Destination:=Range("B358:AHQ362"), Type:=xlFillDefault
    Range("B358:AHQ362").Select
End Sub

在此示例中，我需要自动填充目标为（B358：“在此处插入第 2 行中使用的最后一列”362）

Answer 1

这是根据您的情况提出的动态解决方案：

Sub Macro1()


Dim lastCol As Long
lastCol = Cells(2, Columns.Count).End(xlToLeft).Column

 Range("B358:B362").AutoFill Destination:=Range(Range("B358"), Cells(362, lastCol)), Type:=xlFillDefault

End Sub