Excel VBA判断A1为空则粘贴否则跳转A列空白单元格粘贴报错求解

错误原因 #

• IsEmpty("A1") 参数错误：IsEmpty() 用于判断变量是否为未初始化的空值，你传入的是字符串"A1"而非A1单元格对象，该判断永远返回False，会直接执行Else分支逻辑
• Range("A1").End(xlDown) 逻辑缺陷：如果A1下方没有连续非空单元格，该方法会直接跳转至工作表最大行，再执行Offset(1,0)就会超出工作表行范围，触发对象定义错误

修复后代码 #

优先推荐无Select的高效写法（避免选中操作带来的性能损耗和意外错误）：

Dim nextPasteRow As Long

' 定位A列第一个可用空行
If IsEmpty(Range("A1")) Then
    nextPasteRow = 1
Else
    ' 从A列最后一行向上查找最后一个非空单元格，行号+1即为下一个空行
    nextPasteRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
End If

' 直接粘贴值到目标位置
Cells(nextPasteRow, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

如果需要保留原代码的选中逻辑，可使用如下兼容版本：

If IsEmpty(Range("A1")) Then
    Range("A1").Select
Else
    Range("A" & Cells(Rows.Count, "A").End(xlUp).Row + 1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

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