Sub copyTest()
n = [A100].End(1).Row '1排头行数,100=要处理到第几行
For i = 22 To n Step 11 '22=插入首行，11=间隔N行
Rows("10").Copy '10代表要复制的行，若是多行则 Rows("10:12")
Rows(i).Select '选中的sheet处理
Selection.Insert Shift:=xlDown
i = i + 1
n = n + 2
Next
End Sub
###
office调出宏步骤：alt+F11，运行宏F5
或
文件-》更多-》选项-》自定义功能区-》开发工具-》代码-》宏-》确定
Rows("10").Copy '10代表要复制的行，若是多行则 Rows("10:12")n = [A100].End(1).Row '1排头行数,100=要处理到第几行。For i = 22 To n Step 11 '22=插入首行，11=间隔N行。文件-》更多-》选项-》自定义功能区-》开发工具-》代码-》宏-》确定。Rows(i).Select '选中的sheet处理。office调出宏步骤：alt+F11，运行宏F5。
代码在文件book_all.xls。最近一个同学想要写一段
VBA
代码实现以下功能（我简化了要求）：一个表中有很多个
excel
文件，每个文件有类似的表格，代码实现把每个文件的表格
复制
到另一个
excel
文件中。折腾开始......
之前没搞过
VBA
，我用的是wps抢鲜版，不支持
VBA
，装了个office2003，终于可以跑
VBA
代码了，后来发现wps个人版也是可以跑
vba
的。下面上代码，业余写的，比较简单，路过勿喷......
参考：https://jingyan.baidu.com/article/d621e8da25177a2865913fb5.html效果代码Sub
插入
空列()
For i = 1 To 20 '20即
插入
20列
Cells(1, 2 * i).Select '(1,2*i)即在第1
行
，2*i列处
插入
Selec...
1、按下Alt+F8，给
宏
起名(比如copy)，点击创建2、新创建的
宏
主体部分是空白的，在sub和end sub之间粘贴以下脚本Sub copy()
'快捷键 Ctrl+r
On Error GoTo ErrorHandler
Application.CutCopyMode = False
Selection.copy
Dim co, ro, hi, wi As Intege...
新建一个sheet，把表头和第二
行
先
复制
黏贴过来，然后从第三
行
开始遍历，每
复制
黏贴一
行
后再往下延N
行
，直至把原表数据完全
复制
完毕
1、辅助函数
Sub create_sheet(i As String)
'
宏
3
宏
On Error GoTo 999
Sheets("新sheet").Select
Cells.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
