Excel VBA插入指定数量多列时报1004运行时错误如何解决？

VBA 中Rows集合支持传入数字拼接的范围字符串（如"2:5"）定位行范围，但Columns集合的字符串格式参数仅识别字母格式的列标（如"B:E"），你代码中拼接的是数字格式的列索引字符串（如"2:5"），不符合Columns的参数要求，因此触发1004运行时错误。

方案1：修改列范围定位逻辑（最小改动适配原有写法） #

改用Range对象拼接起止列，支持直接传入数字类型的列索引：

If Not refRng.Value = "" Then
    Range(Columns(Selection.Column), Columns(Selection.Column + lngIns - 1)).Select
    Selection.Insert Shift:=xlRight
End If

方案2：优化写法移除冗余Select操作 #

VBA 中直接操作范围对象比先选中再操作效率更高，也不会干扰界面的选中状态：

If Not refRng.Value = "" Then
    Range(Columns(Selection.Column), Columns(Selection.Column + lngIns - 1)).Insert Shift:=xlRight
End If

• 执行插入前可先校验lngIns的取值，避免插入数量为0、负数或超过表格最大列数的数值触发报错
• 可提前取选中区域首个单元格的列索引作为基准，避免多区域选中时Selection.Column取值异常

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