[已解决]测试“插入空列”代码

642070295

麻烦高手帮看一下，运行代码后发现最后面的区域没有按要求效果插入空列（要求效果是：每3列数据插入一列空列），为什么呢？怎么纠正代码？    先谢了！ 附件.rar (17.76 KB, 下载次数: 11)

2014-5-11 11:40 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-5-11 12:27

Private Sub CommandButton1_Click()
    Dim j%
    With Sheets(2)
        For j = .Range("d1").End(2).Column + 1 To 3 Step -3
            .Columns(j).Insert Shift:=xlToRight
        Next j
    End With
End Sub

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim rng As Range, i&
   
3. Application.ScreenUpdating = False
   
4. For i = 4 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3
   
5.     If rng Is Nothing Then Set rng = Cells(1, i) Else Set rng = Union(rng, Cells(1, i))
   
6. Next
   
7. If Not rng Is Nothing And Cells(1, 4) <> "" Then rng.EntireColumn.Insert Shift:=xlToRight
   
8. Application.ScreenUpdating = True
   
9. End Sub
   

复制代码

qh8600

Private Sub CommandButton1_Click()
    Dim j%
    With Sheets(2)
        For j = .Range("d1").End(2).Column + 1 To 3 Step -3
            .Columns(j).Insert Shift:=xlToRight
        Next j
    End With
End Sub

642070295

谢谢了，问题已解决！

su45

进来游览下代码！