excel中，从第二列开始，每隔两列插入一列，该怎么操作

Question

并且设定插入列的宽为7

Answer 1

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To "100" Step 2 ' ""就是你要增加到多少行的值 比如你要增加到100，哪就写100
Rows(i).Insert
Next i
End Sub
不过先画格按钮，不懂再HI我追问

我要插入的是列，不是行啊，你这个我运行了说是操作错误

追答

Rows(i).Insert换成Columns(i).Insert
不应该操作错误的，除非你少复制了。我这里运行的好好的
再试试

追问

没有啊，它说不能执行所需操作，还有就是，插入的列我希望是列宽统一为7

追答

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To "100" Step 2 ' ""就是你要增加到多少行的值 比如你要增加到100，哪就写100
Columns(i).Insert
Columns(i).ColumnWidth = 7
Next i
End Sub

100上面的引号去掉就可以了。我忘了

本回答被提问者采纳

Answer 2

教你个方便的小技巧：按住Ctrl键，用鼠标选中列，选一列就隔一列插入一列，选二列就隔二列插入列。

Answer 3

粘贴

Answer 4

选中一列 插入一列 在选中一列 按F4 插 点 F4...............本回答被网友采纳

Answer 5

直接粘贴呗