VBA代码逻辑可行却无法运行：按指定行复制粘贴数据求助

原代码的核心问题 #

1. 变量赋值逻辑颠倒：声明i后未将H11的内容赋值给i，反而用未初始化的i（默认值为0）去判断H11的值，导致只有H11输入0时才会执行后续选择操作，完全不符合需求。
2. 依赖Select/Selection操作：这类操作容易因工作表焦点变化引发错误，且属于冗余操作。
3. 变量类型与声明问题：lrij未声明类型，且原代码用Integer存储行号，Excel最大行号远超Integer的上限（32767），应改用Long类型避免溢出。

修正后的代码 #

Sub CopyRowToEnd()
    Dim i As Long
    Dim lastRow As Long
    
    ' 读取H11的行号并验证有效性
    If Not IsNumeric(Range("H11").Value) Then
        MsgBox "请在H11输入有效的行号！"
        Range("H11").ClearContents
        Range("H11").Activate
        Exit Sub
    End If
    
    i = CLng(Range("H11").Value)
    
    ' 检查行号是否在有效范围内
    If i < 1 Or i > Rows.Count Then
        MsgBox "输入的行号超出有效范围！"
        Range("H11").ClearContents
        Range("H11").Activate
        Exit Sub
    End If
    
    ' 获取A列最后一行行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 直接将U-X列第i行的值复制到A列末尾，无需复制粘贴操作
    Range("A" & lastRow + 1 & ":D" & lastRow + 1).Value = Range("U" & i & ":X" & i).Value
    
    ' 清理H11并激活A1
    Range("H11").ClearContents
    Range("A1").Activate
End Sub

关键修正说明 #

• 直接赋值替代复制粘贴：通过区域值直接赋值的方式，比复制粘贴更高效且避免剪贴板依赖。
• 增加有效性验证：判断输入是否为数字、行号是否合法，避免因无效输入导致运行错误。
• 规范变量声明：所有变量均明确类型，用Long处理行号适配Excel大行数。
• 移除冗余操作：删除不必要的Select/Selection，提升代码稳定性。

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