Excel VBA如何实现从B1向右自动填充连续序号到矩阵最后一列

原有代码问题梳理 #

• 未指定插入行的准确范围：Selection.Insert 依赖前置选中的区域，若之前没有选中整行，会导致只插入部分单元格，而非数据矩阵顶部的整行
• 无效的范围引用：Range("LastColumn"&1) 属于语法错误，VBA不会自动识别LastColumn为数据矩阵的最后一列，该变量未定义、未赋值，运行时直接报错
• 滥用Select/Selection：依赖选中状态的代码稳定性极差，工作表激活状态、用户手动选中区域都会干扰执行结果
• 填充范围识别逻辑错误：先选B2再右跳找最后列、再反向左选的逻辑混乱，无法准确锁定B1到最后列第一行的填充区域

可行实现代码 #

Sub FillTopSerialNumber()
    Dim ws As Worksheet
    Dim lastCol As Long
    
    ' 绑定目标工作表，无需依赖选中状态
    Set ws = ThisWorkbook.Sheets("valores")
    
    ' 获取原有数据矩阵的最后一列：从第2行最右侧向左查找，适配存在空单元格的场景
    lastCol = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column
    
    ' 在顶部插入整行
    ws.Rows(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    ' 从B1开始向右填充连续序号0、1、2……
    ws.Range("B1").Value = 0
    ws.Range("B1").Resize(1, lastCol - 1).DataSeries _
        Rowcol:=xlRows, Type:=xlLinear, Step:=1, Trend:=False
    
    MsgBox "Sheet generated."
End Sub

代码说明 #

• 全程通过工作表对象操作，无选中动作，执行稳定性更高
• 从行尾向左查找最后一列的逻辑，兼容数据行存在空值的场景
• 用Resize方法直接锁定填充范围，逻辑清晰不易出错

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