插入并复制单元格值时出现Selection.Insert错误，求VBA代码协助

嘿，我来帮你搞定这个Selection.Insert错误，同时实现你要的「根据单元格B的值插入对应数量新行并复制原行A/B列内容」的功能！

首先先拆解下你原代码里的几个坑，这些就是导致错误的主要原因：

• 代码片段不完整（Range(Cells(xRow + 1, ...中断了），缺少完整的插入执行语句
• 工作表保护时机错误：刚复制完就锁表，后续插入行的操作直接被保护机制拦住
• 从上往下循环的逻辑漏洞：插入新行后会打乱原有行号，导致循环重复处理或跳过数据
• 未明确指定操作工作表，容易误操作到其他激活的表

下面是修正后的完整可运行代码，每一步都加了注释方便你理解：

Sub CopyData()
    'Updateby Extendoffice 20160922
    Dim xRow As Long
    Dim VInsertNum As Variant
    Dim ws As Worksheet
    
    ' 锁定要操作的工作表，避免切错表导致失误
    Set ws = ThisWorkbook.ActiveSheet ' 要是有固定表名，改成Set ws = ThisWorkbook.Worksheets("你的表名")更稳妥
    
    Application.ScreenUpdating = False ' 关闭屏幕刷新，加快运行速度
    ' 从A列最后一行往上循环，彻底避免插入行打乱循环顺序的问题
    xRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 先统一解除工作表保护（如果有密码，就在Unprotect后面加，比如ws.Unprotect "你的密码"）
    If ws.ProtectContents Then
        ws.Unprotect
    End If
    
    Do While xRow >= 1
        VInsertNum = ws.Cells(xRow, "B").Value
        ' 只处理「是数字且大于1」的情况，避免空值或无效值报错
        If IsNumeric(VInsertNum) And VInsertNum > 1 Then
            ' 复制当前行的A、B列内容
            ws.Range(ws.Cells(xRow, "A"), ws.Cells(xRow, "B")).Copy
            ' 在当前行下方插入(VInsertNum - 1)行——因为原行已经存在，只需要补额外的行
            ws.Rows(xRow + 1 & ":" & xRow + VInsertNum - 1).Insert Shift:=xlDown
            ' 把复制的内容粘贴到新插入的行里（这里用xlPasteValues只粘值，要格式的话改成xlPasteAll）
            ws.Range(ws.Cells(xRow + 1, "A"), ws.Cells(xRow + VInsertNum - 1, "B")).PasteSpecial Paste:=xlPasteValues
        End If
        ' 往上移动一行，继续处理上一行数据
        xRow = xRow - 1
    Loop
    
    ' 操作完重新保护工作表（按需调整保护选项）
    ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.CutCopyMode = False ' 清除复制缓存，避免剪贴板残留
    Application.ScreenUpdating = True ' 恢复屏幕刷新
    MsgBox "搞定啦！所有行都处理完了～", vbInformation
End Sub

几个关键优化点的说明： #

• 从下往上循环：这是处理插入/删除行的黄金法则！从上往下循环会因为行号变动导致漏处理或重复处理，从最后一行往上走就完全避免了这个问题
• 直接操作对象而非Selection：这就是解决Selection.Insert错误的核心！尽量别用Selection，直接指定工作表、单元格范围操作，既避免错误，又让代码更稳健
• 统一管理工作表保护：先解锁所有操作，完成后再锁回去，不会在中间操作时被保护机制拦住
• 明确的数值校验：先判断B列的值是不是有效数字且大于1，避免空值、文本值导致的报错

常见问题排查： #

• 如果还是出现保护相关错误：检查工作表有没有设密码，有的话在ws.Unprotect后面加密码参数，比如ws.Unprotect "123456"
• 如果插入的行数不对：确认VInsertNum - 1的逻辑——比如B列值是3，要得到3行（原行+2新行），所以需要插入2行，用VInsertNum -1就对了
• 如果循环没处理完所有行：检查xRow的初始值，ws.Cells(ws.Rows.Count, "A").End(xlUp).Row是精准获取A列最后一行有数据的行号，不会出错

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