如何在EXCEL中每两列间插入一列

来源：百度知道 编辑：UC知道 时间：2024/05/11 12:58:24
如何在EXCEL中每两列间插入一列
问题补充：我说的每两列都要这样，假设我有两百列

A列前插入一列，填充序号，1、2、3、4到200
然后在A200填入2.1
A201填入4.1
然后往下填充到A300(应该是200.1)
然后按照A列升序排序
最后删掉A列就行

*/***
问了2遍啊，让我看到第一个能拿2次分，呵呵

我假设你的数据从A列开始的连续的列.
然后,按下ALT+F11,菜单插入-模块,然后复制下列代码,按下F5运行.

Sub Macro2()
Dim a As Integer
a = Range("a1").CurrentRegion.Columns.Count / 2 - 1
Range("c:c").Select
For x = 1 To a
Selection.Insert Shift:=xlToRight
Selection.Offset(0, 3).Select
Next
End Sub