摘要：《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。
《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。
这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过渡教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第二十二讲:如何在工作表中一次插入多行表格的方法【分享成果，随喜正能量】很多时候，并不是别人在折磨我们，而是我们用自己的价值观去评判对方的是非对错，是我们在折磨自己。。
在VBA代码解决方案中，很多的问题都将给出了专题的解决方案，随着我的慢慢讲解，相信大家会慢慢的会掌握很多的方法用于自己的工作中，让自己的工作更方便，更简洁，效率更高，今日讲的是利用VBA代码如何在EXCEL中一次插入多行表格的方法。
在工作表的中插入多行空行，需要使用Insert方法，Insert方法应用于Range对象时在工作表或宏表中插入一个单元格或单元格区域，其他单元格作相应移位以腾出空间。
语法：expression.Insert(Shift, CopyOrigin)
参数说明：
a) expression是必需的，该表达式返回一个Range对象。
b) Shift是可选的，指定单元格的移动方向。可为以下XlInsertShiftDirection常量，xlShiftToRight或xlShiftDown。如果省略本参数，Microsoft Excel将依据该区域的形状决定移动方向。
c) CopyOrigin是可选的，复制的起点。
如下面的代码所示：
Sub mynz_22_1 '第22讲 EXCEL中，如何在工作表中一次插入多行表格的方法
Dim i As Integer
FOR i = 1 To 3
Sheets("22").Rows(3).Insert
Next
End Sub
代码截图：
代码解析：
1) mynz_22_1过程使用Insert方法在下面截图所示的数据区域的第2行和第3行之间插入三行空行。
2) FOR,NEXT是循环语句，共循环三次，每次插入一行。
3) Sheets ("22").Rows(3) 表示插入的位置为”22”工作表的第三行。
代码的运行：
窗口运行前：
窗口运行后：
还可以使用引用多行的方法，如下面的代码所示：
Sub mynz_22_2 '第22讲 EXCEL中，如何在工作表中一次插入多行表格的方法
Sheets("22").Range("A3").EntireRow.Resize(3). Insert
End Sub
代码的截图：
代码解析：
mynz_22_2过程通过引用多行区域的方法实现一次插入多行。
第2行代码中的Range(“A3”).EntireRow属性返回Range(“A3”)单元格所在的一整行，然后使用Resize属性调整行数后插入三行空行。
也可以直接指定相应行再调整行数后插入空行，如下面的示例代码：
Sub mynz_22_3 '第22讲 EXCEL中，如何在工作表中一次插入多行表格的方法
Sheets("22").Rows(3).Resize(3).Insert
End Sub
代码截图：
今日内容回向：
1 插入多行工作表的基本方法是什么？
2 expression.Insert 的意义是什么？
3 插入多行工作表的有几种方法？
本讲内容参考程序文件：VBA代码解决方案（22-26）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
来源：VBA语言专业教育
