VBA打印A列至最后一行报错Run-time error 1004，求代码修正方案

你的报错原因很明确：你在拼接地址的时候，直接把Range对象和字符串拼接了，但VBA不会自动把Range对象转换成它的地址字符串，所以Range()函数接收到的是无效参数，才会抛出1004错误。

修改后的正确代码 #

只需要给获取最后一行的Range对象加上.Address属性，提取它的单元格地址字符串再拼接即可：

Sub PrintUptoLastRow()
 Dim oCel As Range
 For Each oCel In Range("A1:" & Range("A" & Rows.Count).End(xlUp).Address)
 Debug.Print oCel
 Next oCel
End Sub

为什么之前的写法不对？ #

你原来代码里的Range("A" & Rows.Count).End(xlUp)返回的是一个Range对象（也就是A10这个单元格实例），而不是字符串"A10"。当你把它和":"拼接时，VBA对Range对象的默认字符串转换结果并不是你需要的单元格地址，最终传给Range()函数的是无效参数，自然触发了报错。

额外推荐的更简洁写法 #

其实完全不用手动拼接地址，直接用Range的双参数写法会更清晰且不易出错，就像你之前成功运行的那段代码一样：

Sub PrintUptoLastRow()
 Dim oCel As Range
 Dim lastRow As Range
 Set lastRow = Range("A" & Rows.Count).End(xlUp)
 For Each oCel In Range("A1", lastRow)
 Debug.Print oCel
 Next oCel
End Sub

这种写法是VBA中定位连续单元格区域的标准方式，可读性更强，也能避免字符串拼接可能带来的格式问题。

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