[已解决]帮忙修改下VBA代码

刘洪裕

指定数据插入空列

最佳答案

月排行榜 / 总排行榜

爱疯

2013-11-6 17:12

原代码是在"3值"右边插入4列，而现在想改为"3值"左边边插入3列，是吗？
如果是，改为蓝色这句即可

Sub InsertCol()
    Dim Ar, i%
    Ar = Sheets("表格1").Range("a1", Sheets("表格1").Cells(1, Columns.Count).End(xlToLeft))
    Application.ScreenUpdating = False
    For i = UBound(Ar, 2) To 1 Step -1
        If Ar(1, i) = "3值" Then
            Debug.Print Range(Cells(1, i - 2), Cells(1, i)).Address(0, 0)
            Range(Cells(1, i - 2), Cells(1, i)).EntireColumn.Insert Shift:=xlToRight
        End If
    Next
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

爱疯

原代码是在"3值"右边插入4列，而现在想改为"3值"左边边插入3列，是吗？
如果是，改为蓝色这句即可

Sub InsertCol()
    Dim Ar, i%
    Ar = Sheets("表格1").Range("a1", Sheets("表格1").Cells(1, Columns.Count).End(xlToLeft))
    Application.ScreenUpdating = False
    For i = UBound(Ar, 2) To 1 Step -1
        If Ar(1, i) = "3值" Then
            Debug.Print Range(Cells(1, i - 2), Cells(1, i)).Address(0, 0)
            Range(Cells(1, i - 2), Cells(1, i)).EntireColumn.Insert Shift:=xlToRight
        End If
    Next
    Application.ScreenUpdating = True
End Sub

hwc2ycy

超过表格的列限制了。

hwc2ycy

在10里最大只有16384列。

hwc2ycy

代码没什么问题。
1行内有4000多个3值的单元格。
每一个插3列就要插入12000列。
在没有插入的情况下，已经用了16000列了。
所以，到最后报错了，工作表的列都用完了。