Excel批量插行宏报Method range of object _global failed错误求助

• 语法错误：Range(x - 1, x + 19)的写法不符合VBA的Range对象构造规则，Range的两个入参需要是单元格对象或者A1样式的地址字符串，直接传入行号数值会触发全局Range对象调用失败，也就是你遇到的1004错误。
• 逻辑适配问题：你操作的是Excel结构化表（ListObject），直接操作工作表行容易超出表的范围，也无法保证结构化表的格式、公式自动继承特性生效。

Sub Add_Rows()
    ' 关闭屏幕更新和事件，大幅提升运行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    On Error GoTo ErrHandler ' 错误捕获，避免异常后配置无法恢复
    
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim tbl As ListObject
    Set tbl = ws.ListObjects("Table1")
    Const INSERT_ROWS_NUM As Integer = 20 ' 要插入的行数，可自行修改
    
    ' 方法1： Office 2019/365及以上版本支持，一次性插入多行，效率最高
    ' 参数说明：Position指定插入位置（倒数第一行之前，也就是当前最后一行的索引位置），NumberOfRows指定插入行数
    tbl.ListRows.Add Position:=tbl.ListRows.Count, NumberOfRows:=INSERT_ROWS_NUM
    
    ' -------------- 如果你用的是旧版Excel（2016及更早），把上面一行注释，用下面的循环代码，关了屏幕更新也不会卡 ----------------
    ' Dim i As Integer
    ' For i = 1 To INSERT_ROWS_NUM
    '     tbl.ListRows.Add Position:=tbl.ListRows.Count
    ' Next i
    ' --------------------------------------------------------------------------------------------------------------------

ExitHandler:
    ' 恢复配置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox "插入行失败，错误原因：" & Err.Description, vbExclamation
    Resume ExitHandler
End Sub

• 插入的行默认会自动继承上一行（也就是你原来的表倒数第二行）的所有格式、条件格式、公式，完全符合你的需求，不需要额外写复制格式的代码。
• 关闭屏幕更新后，就算是旧版Excel循环插入20行，执行时间也不会超过100毫秒，完全不会有卡顿感。
• 加了错误捕获，不会因为异常操作导致Excel屏幕卡死或者事件不响应。

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