VBA技术问询：插入行后复制活动行E-J列至新行的代码问题

嘿，你说得完全对，问题确实出在单元格范围选择的环节，而且原代码还有几个可以优化的小细节，能让代码更稳定高效。我来帮你搞定这个问题：

原代码的核心问题 #

1. Range范围构造错误：你原来写的Range(Cells(ActiveCell.Row, "E"), Cells(ActiveCell.Row, "F"), ...)是错误语法——Range接受起始+结束两个单元格参数来表示连续区域，不能直接罗列多个Cells。正确的E-J列连续区域应该用Range(Cells(行号, "E"), Cells(行号, "J"))来定义。
2. 依赖Select/Selection不稳定：用Select和Selection操作单元格很容易受Excel环境干扰（比如用户误点其他单元格），直接操作Range对象会更可靠。

修正后的代码 #

Sub Addrow()
    Dim sourceRow As Integer
    sourceRow = ActiveCell.Row ' 先把活动行号存起来，避免后续操作影响
    
    ' 在活动单元格下方插入一行
    ActiveCell.Offset(1).EntireRow.Insert
    
    ' 定义要复制的源区域：活动行的E-J列
    Dim sourceRange As Range
    Set sourceRange = Range(Cells(sourceRow, "E"), Cells(sourceRow, "J"))
    
    ' 直接复制到新插入行的E列开始位置，跳过Select步骤
    sourceRange.Copy Destination:=Cells(sourceRow + 1, "E")
End Sub

代码说明 #

• 先把活动行号存在sourceRow变量里，避免插入行后引用行号出现偏差；
• 用Range(Cells(sourceRow, "E"), Cells(sourceRow, "J"))精准选中E到J的连续列区域；
• 直接通过Copy Destination:=指定目标位置，去掉了冗余的Select/Selection操作，代码更简洁且不易出错。

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