VBA从A2开始应用公式到A列整列遇1004错误的解决方法

错误原因 #

Range("A2:A")是无效的VBA范围引用语法，Excel无法识别这种不完整的整列范围定义，因此触发运行时错误'1004'。

解决方案 #

方案1：填充到D/E列最后一行有数据的行（推荐） #

这种方式仅填充到有实际数据的行，避免不必要的公式填充，减少文件体积：

Dim lastRow As Long
With Sheets("PlanningSystemData")
    ' 获取D、E列中最后一行非空单元格的行号，取较大值确保覆盖所有数据行
    lastRow = Application.Max(.Cells(.Rows.Count, "D").End(xlUp).Row, .Cells(.Rows.Count, "E").End(xlUp).Row)
    ' 从A2填充到对应行
    .Range("A2:A" & lastRow).Formula = "=CONCATENATE(D2,E2)"
    ' 也可以简化公式为：=D2&E2，效果完全一致
    '.Range("A2:A" & lastRow).Formula = "=D2&E2"
End With

方案2：填充A列从A2到Excel最大行 #

如果确实需要填充整列（从A2到Excel支持的最后一行），可以使用完整的范围定义：

With Sheets("PlanningSystemData")
    .Range("A2:A" & .Rows.Count).Formula = "=CONCATENATE(D2,E2)"
End With

原代码问题说明 #

• 最初的Range("A:A").Formula会将公式应用到A1单元格，直接覆盖表头，不符合需求。
• Range("A2:A")属于无效语法，VBA不支持这种省略结束行号的整列引用方式。

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