VBA AutoFill报错：从最后有值单元格自动填充序列至相邻列末行

报错核心原因 #

当前代码运行触发错误主要由三个问题导致：

• AutoFill方法的源区域仅选择了B列最后1个有值单元格，Excel无法识别HT-1、HT-2这类文本序列的递增规则，无法完成自动填充
• 代码中Range对象未显式绑定到hangers工作表，若执行代码时当前激活工作表不是目标表，会出现跨区域引用错误
• 原生AutoFill要求源填充区域必须完全包含在目标填充区域范围内，原代码的范围设置不符合该方法的调用要求

推荐实现方案 #

优先选择不依赖AutoFill规则识别的批量写入方案，兼容性和稳定性更高，不会出现规则识别失败的问题：

Sub FillSerialToLastRow()
    Dim wb As Workbook
    Dim main As Worksheet
    Dim lastArow As Long
    Dim lastBrow As Long
    Dim i As Long
    Dim lastNum As Long
    
    Set wb = ThisWorkbook
    Set main = wb.Sheets("hangers")
    
    ' 取A列最后一行（新导入数据的末尾行）
    lastArow = main.Cells(main.Rows.Count, 1).End(xlUp).Row
    ' 取B列最后一个已有编号的行
    lastBrow = main.Range("B" & main.Rows.Count).End(xlUp).Row
    
    ' 没有需要填充的新行时直接退出过程
    If lastBrow >= lastArow Then Exit Sub
    
    ' 提取最后一个已有编号的数字部分
    lastNum = VBA.Split(main.Range("B" & lastBrow).Value, "-")(1)
    
    ' 循环为所有空行生成连续编号
    For i = lastBrow + 1 To lastArow
        lastNum = lastNum + 1
        main.Range("B" & i).Value = "HT-" & lastNum
    Next i
End Sub

修正后的AutoFill写法 #

如果需要保留Excel原生自动填充逻辑，需要调整源区域范围（至少选择2个连续已有编号供Excel识别递增规则），并显式指定所有范围所属的工作表：

Sub AutoFillVersion()
    Dim wb As Workbook
    Dim main As Worksheet
    Dim lastArow As Long
    Dim lastBrow As Long
    
    Set wb = ThisWorkbook
    Set main = wb.Sheets("hangers")
    
    lastArow = main.Cells(main.Rows.Count, 1).End(xlUp).Row
    lastBrow = main.Range("B" & main.Rows.Count).End(xlUp).Row
    
    If lastBrow >= lastArow Then Exit Sub
    
    ' 源区域选择最后2个连续编号，目标区域包含源区域
    main.Range("B" & lastBrow - 1 & ":B" & lastBrow).AutoFill _
        Destination:=main.Range("B" & lastBrow - 1 & ":B" & lastArow), _
        Type:=xlFillDefault
End Sub

注意：该写法要求B列最后2个已有值必须是连续递增的HT-x格式编号，否则填充规律会识别错误。

相关截图 #

• 工作表截图
• 调试报错截图

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