excel隔列插入,着急啊我想在
用VBA吧,解决问题快一点。请先备份之后试验再用。
1、备份原工作簿。
2、右键单击最下面的标签名(就是“Sheet1”、“Sheet2”啦),点“查看代码”
3、将下列代码复制粘贴进入、
4、点“运行”->“运行子过程”
5、删除多余的列
6、最後记得将代码删除,留下来没用的。
Sub Test()
Dim RangeTemp As Range
Set RangeTemp = Range("A:A")
'上面一行中"A:A"表示隔列插入第一列的内容,可以改成B:B之类的内容
Columns("A:A")。 Select
'上面一行中“A:A”表示从第一行开始复制,改成你需要的。
F...全部
用VBA吧,解决问题快一点。请先备份之后试验再用。
1、备份原工作簿。
2、右键单击最下面的标签名(就是“Sheet1”、“Sheet2”啦),点“查看代码”
3、将下列代码复制粘贴进入、
4、点“运行”->“运行子过程”
5、删除多余的列
6、最後记得将代码删除,留下来没用的。
Sub Test()
Dim RangeTemp As Range
Set RangeTemp = Range("A:A")
'上面一行中"A:A"表示隔列插入第一列的内容,可以改成B:B之类的内容
Columns("A:A")。
Select
'上面一行中“A:A”表示从第一行开始复制,改成你需要的。
For i = 1 To 25
'上面25表示重复25次,即隔列插入25次,改成需要的数字
RangeTemp。
Copy
Selection。Offset(0, 2)。Select
Selection。Insert Shift:=xlToRight
Next i
End Sub
这是效果:。
收起