如何在EXCEL中每两列间插入一列
2个回答
展开全部
A列前插入一列，填充序号，1、2、3、4到200
然后在A200填入2.1
A201填入4.1
然后往下填充到A300(应该是200.1)
然后按照A列升序排序
最后删掉A列就行
*/***
问了2遍啊，让我看到第一个能拿2次分，呵呵
然后在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
然后,按下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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
