使用宏自动填充列到最后一列

Question

我想将我的公式自动填充到最后一列。这是我的代码：

Dim LastColumn As Long
LastColumn = Cells(5, Columns.Count).End(xlToLeft).Column
Selection.AutoFill Destination:=Range("B1:" & LastColumn & "1"), Type:=xlFillDefault

我已成功通过变量LastColumn计算最后一列，但在自动填充期间，它失败了。所以我想从列B开始自动填充到Lastcolumn列。

请帮忙。我的代码出了什么问题？

Answer 1

您在LastColumn中有一个号码，因此您无法在Range中直接使用该号码。请改用：

Selection.AutoFill Destination:=Range(Cells(1, 2), Cells(1, LastColumn)), Type:=xlFillDefault