Excel VBA插入行报错：仅打开文件后立即运行宏有效

尝试运行以下VBA代码插入空行时，仅在打开Excel文件后立即运行宏有效；若先修改内容再执行代码，会触发如下错误：

Run-time error '-2147417848 (80010108)':
Automation error

原代码：

Sub LinhasAuto()
Dim lRow As Long
Dim RepeatFactor As Variant

lRow = 11
Do While (Cells(lRow, "A") <> "")

RepeatFactor = Cells(lRow, "AO")
If ((RepeatFactor > 0) And IsNumeric(RepeatFactor)) Then

Range(Cells(lRow, "A"), Cells(lRow, "AT")).Copy
Range(Cells(lRow + 1, "A"), Cells(lRow + RepeatFactor, "AT")).Select
Selection.Insert Shift:=xlDown

lRow = lRow + RepeatFactor
End If

lRow = lRow + 1
Loop
End Sub

1. 明确限定工作表对象 #

原代码未指定具体工作表，默认依赖活动工作表上下文，修改内容后易出现引用混乱。需直接指定目标工作表（替换为你的实际表名）。

2. 移除Select/Selection操作 #

Select是触发自动化错误的高频诱因，直接操作Range对象可避免依赖活动单元格的不稳定状态。

3. 优化数据类型与循环逻辑 #

确保RepeatFactor的数值类型转换严谨，同时动态更新最后行号，避免插入新行后循环范围失效。

修复后的代码：

Sub LinhasAuto()
    Dim ws As Worksheet
    Dim lRow As Long
    Dim RepeatFactor As Long
    Dim lastRow As Long
    
    ' 指定目标工作表，替换为你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    lRow = 11
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    Do While lRow <= lastRow
        ' 处理AO列的数值转换，兼容空值或非数值情况
        If IsNumeric(ws.Cells(lRow, "AO").Value) Then
            RepeatFactor = CLng(ws.Cells(lRow, "AO").Value)
        Else
            RepeatFactor = 0
        End If
        
        If RepeatFactor > 0 Then
            ' 直接复制插入，跳过Select操作
            ws.Range(ws.Cells(lRow, "A"), ws.Cells(lRow, "AT")).Copy
            ws.Range(ws.Cells(lRow + 1, "A"), ws.Cells(lRow + RepeatFactor, "AT")).Insert Shift:=xlDown
            ' 更新最后行号，适配插入的新行
            lastRow = lastRow + RepeatFactor
            ' 跳过已插入的行，继续处理下一行
            lRow = lRow + RepeatFactor
        End If
        
        lRow = lRow + 1
    Loop
    
    ' 清除剪贴板残留内容
    Application.CutCopyMode = False
End Sub

额外注意事项 #

• 务必将代码中的"Sheet1"替换为你实际使用的工作表名称。
• 若AO列存在小数，可将RepeatFactor改为Double类型，再用Int()或Round()处理为整数。
• 无需手动激活工作表，代码已直接指定操作对象。

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