Excel中基于其他工作表数据在指定行插入行的VBA代码问题求助

原代码无法正常运行的核心问题如下：

• 字符串拼接错误：Rows("Hdr:Hdr")里的变量Hdr未被解析，VBA会将其当作字面量字符串，导致无法定位目标行
• 滥用Select和Selection：这类操作不仅效率低下，还容易因工作表激活状态变化触发错误
• 变量声明冗余：Dim Hdr放在循环内部，每次循环都会重复声明变量
• 缺失粘贴步骤：仅复制了行内容，但插入新行后未完成粘贴操作

修正后的代码 #

' 提前复制需要插入的行，避免循环内重复执行复制操作
Worksheets("Input").Rows(11).Copy

Dim x As Integer
Dim Hdr As Integer

' 遍历第10行的1到12列，获取要插入的行号
For x = 1 To 12
    Hdr = Worksheets("Input").Cells(10, x).Value
    
    ' 直接操作目标工作表的行，无需切换选中状态
    Worksheets("Data Table").Rows(Hdr).Insert Shift:=xlDown
    ' 将复制的内容粘贴到新插入的行
    Worksheets("Data Table").Rows(Hdr).PasteSpecial xlPasteAll
Next x

' 清除剪贴板状态，避免残留内容影响后续操作
Application.CutCopyMode = False

关键优化说明 #

• 移除Select/Selection：直接通过工作表对象引用目标行，代码更稳定高效
• 正确解析变量：用Rows(Hdr)替代错误的字符串拼接写法，准确定位插入位置
• 优化复制逻辑：仅执行一次复制操作，循环内重复粘贴，减少IO开销
• 清理剪贴板：操作完成后关闭剪切/复制模式，避免干扰其他操作

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