Excel VBA：未知行列引用时AutoFill最后一列报错求解

看起来你在给电子表格最后一列做AutoFill时遇到了麻烦，我来帮你梳理下问题并给出修正方案～

首先先补全并修正你的代码，解决AutoFill的报错问题，再给你拆解关键要点：

Sub Rename_Name_and_Two()
    Dim colLast As Long
    Dim lastRow As Long
    
    ' 获取最后一列（从第1行向右查找最后一个有内容的列）
    colLast = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 获取数据的最后一行（从A列底部向上找最后一个有内容的行，确保和数据行匹配）
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    ' --- 假设你已经在这里给最后一列的首行写入了目标内容，比如：
    ' Cells(1, colLast).Value = "需要填充的文本"
    
    ' 执行AutoFill操作：源是首行的单元格，目标是从首行到lastRow的整列
    ' 核心注意点：源范围必须是有内容的单元格，目标范围要包含源范围，且维度匹配
    Cells(1, colLast).AutoFill _
        Destination:=Range(Cells(1, colLast), Cells(lastRow, colLast)), _
        Type:=xlFillDefault ' 可选参数，默认按内容填充（文本就复制文本，公式就复制公式）
End Sub

常见报错原因及解决办法： #

• 源范围与目标范围不匹配：比如你误将源范围设为多单元格，或者目标范围和源的行列维度不兼容。这里我们用单个单元格作为源，目标是同列的连续行，完全符合AutoFill的要求。
• lastRow计算不准确：如果你的数据不是从A列开始，或者A列存在空白行，建议换成数据最完整的列来计算lastRow，比如lastRow = Cells(Rows.Count, "B").End(xlUp).Row，确保获取到真实的数据最后一行。
• 未指定工作表就操作：如果你的代码不是在当前活动工作表执行，最好加上工作表对象（比如Sheet1.Cells(1, colLast)），避免跨工作表操作导致的权限或定位错误。
• 最后一列首行无内容：AutoFill必须依赖源单元格的内容才能执行，如果你的代码没给首行写入内容就调用AutoFill，必然会报错，所以要确保Cells(1, colLast)已经有值。

如果还是报错，可以告诉我具体的错误提示（比如“运行时错误‘1004’：应用程序定义或对象定义错误”），这样能更精准地排查问题～

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