标题：excel隔列插入的方法 vba法 运行宏就可以

-------------------------------------------------------------------------------------------------------------------------------

时间：2011/11/2 19:00:03

-------------------------------------------------------------------------------------------------------------------------------

内容：

隔行插入的方法之前在博客里提到过

通过排序的方法就可以巧妙的每隔1行插入

但是excel没有按列排序 所以这个方法不能用在隔列插入

今天思考了半天还是用vba方法入手

其实不难

代码如下

Sub charuhang()
Dim times '需要插入的次数
times = 10

Dim i

Dim n
n = 2 * times

  For i = 1 To n Step 2 '做了一个循环 每循环一次插入一次 

   Columns(i).Select '选取i列，这个i列随着循环次数增加每次递增2

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove  '这个命令是我录的不是我手写的 利用录制宏功能 就可以得到基本命令  

 Next

 
End Sub

 是不是很简单

知识点很少 一个循环 for ， 定义一个其实i值 再一个step定义一个每次循环增加的数量

然后就是excel列的动态选取

columns（i）.select

隔行插入的方法之前在博客里提到过

通过排序的方法就可以巧妙的每隔1行插入

但是excel没有按列排序 所以这个方法不能用在隔列插入

今天思考了半天还是用vba方法入手

其实不难

代码如下

Sub charuhang()
Dim times '需要插入的次数
times = 10

Dim i

Dim n
n = 2 * times

  For i = 1 To n Step 2 '做了一个循环 每循环一次插入一次 

   Columns(i).Select '选取i列，这个i列随着循环次数增加每次递增2

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove  '这个命令是我录的不是我手写的 利用录制宏功能 就可以得到基本命令  

 Next

 
End Sub

 是不是很简单

知识点很少 一个循环 for ， 定义一个其实i值 再一个step定义一个每次循环增加的数量

然后就是excel列的动态选取

columns（i）.select