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

Posted 2023-02-24

【中文标题】宏中的自动填充公式从 A 列到最后一列

【英文标题】：Autofill formulas in Macro from column A to last column

【发布时间】：2013-04-08 08:45:13

【问题描述】：

我正在尝试制作一个宏，它将采用单元格 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:"insert last column used in row 2 here"362)

【问题讨论】：

改进代码总是更好更快...这也是在这里提供支持的首选方式。因此，请显示您目前拥有的代码。你有没有尝试用宏记录器做任何事情？

我的问题是我现在基本上什么都没有。录制宏不会给我太多，主要是因为我需要它是动态的。

完成部分工作，我们会帮助您获得“动态”代码。所以，记录一些“静态”宏，显示你的代码，我们给你一些提示。 :)

好的，所以我添加了一些代码，对不起，我没有那样写它

太棒了！请参阅下面的答案:)

【参考方案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

【讨论】：

谢谢。我一直在仔细查看其他一些答案，但是由于我不了解大多数单个组件，因此我无法完全正确。感谢您的帮助