[已解决]如何在每列后再插入一列

jhhkh

如何在每列后再插入一列，用vba实现

最佳答案

月排行榜 / 总排行榜

jianwu1106

2011-12-26 01:29

看看这样行不行     

跳转到最佳答案楼层

adders

Book2.rar (6.73 KB, 下载次数: 19)

2011-12-26 00:26 上传

点击文件名下载附件

jhhkh

如果做个按钮调用时，会出现按一次增加一次，再按一次又增加一次，按多次就增加多次，我的目的不是这这样，我希望是这样，当第一次按下按钮，列增加，但如果再按这个按钮，就不再增加列，也就是说只增加一次，那又怎样实现呢

jianwu1106

看看这样行不行     

ls

jianwu1106 发表于 2011-12-26 01:29
看看这样行不行

x = Cells(1, Columns.Count).End(xlToLeft).Column
?


能否解释下代码

jianwu1106

ls 发表于 2011-12-26 02:15
x = Cells(1, Columns.Count).End(xlToLeft).Column
?

取最后一列的列数
这样也可以
Dim x As Integer
Sub 列()
If x > 0 Then Exit Sub
x = Cells(1, 1).End(xlToRight).Column
For i = x To 3 Step -1
    Columns(i).Insert Shift:=xlToRight
    Cells(1, i) = "aaa"
Next i
End Sub

ls

jianwu1106 发表于 2011-12-26 02:59
取最后一列的列数
这样也可以
Dim x As Integer

谢谢分享               

cz81