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

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

1 个答案: