如何在VBA中使用变量设置可动态变化的列范围

嗨Martin，我来帮你搞定这个动态列范围的问题～

首先，你原代码里的Columns()是空的，这会导致AutoFill无法识别目标范围，咱们可以通过动态拼接列范围字符串来实现从lCol到nCol的动态列选择，同时优化一下代码的效率（尽量不用Select和Selection，直接操作对象更靠谱）。

修改后的核心代码 #

Dim lCol As Long
Dim nCol As Long

' 获取第一行最后一个非空列的列号
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
nCol = lCol + 1

' 直接对列对象执行AutoFill，目标范围是从lCol到nCol的动态列
Columns(lCol).AutoFill Destination:=Columns(lCol & ":" & nCol), Type:=xlFillDefault

关键细节说明 #

• 变量类型优化：把Variant换成Long，因为列号是整数类型，这样更高效也能避免不必要的类型转换问题。
• 动态列范围定义：Columns(lCol & ":" & nCol)会自动拼接成类似Columns("5:6")的范围（假设lCol=5，nCol=6），完美实现你要的从最后一列到新列的动态范围。
• 去掉冗余操作：直接调用Columns(lCol).AutoFill，省去Select和Selection的步骤，减少代码出错的概率，运行也更快。

额外调整（如果需要先插入列再填充） #

要是你的需求是先在最后一列右侧插入新列，再把原最后一列的内容/格式填充过去，可以用这段代码：

Dim lCol As Long
Dim nCol As Long

lCol = Cells(1, Columns.Count).End(xlToLeft).Column
nCol = lCol + 1

' 先插入新列
Columns(nCol).Insert Shift:=xlToRight
' 再将原最后一列的内容填充到新列
Columns(lCol).AutoFill Destination:=Columns(lCol & ":" & nCol), Type:=xlFillDefault

这样每次报表更新时，就能自动按需求扩展列范围啦～

内容的提问来源于stack exchange，提问作者Perspektiva Photography