我想在一张表中,隔一列插入一列我已经复制的列,不知道可不可实现啊?怎么操作,快点告诉我啊!
热心网友
用VBA吧,解决问题快一点。请先备份之后试验再用。1、备份原工作簿。2、右键单击最下面的标签名(就是“Sheet1”、“Sheet2”啦),点“查看代码”3、将下列代码复制粘贴进入、4、点“运行”-“运行子过程”5、删除多余的列6、最後记得将代码删除,留下来没用的。Sub Test()Dim RangeTemp As RangeSet 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:=xlToRightNext iEnd Sub这是效果:。
热心网友
暂时好像只能一个一个复!