有时您可能会从其他人那里获得工作表，并且需要一些空间来处理所提供的信息。例如，您可能会发现在数据表的每个原始行之间添加一些空白行会有所帮助。尽管使用“插入”菜单可以很容易地做到这一点，但它很快就会变得乏味-特别是如果您有一张大桌子想要散开。

下面的宏将在这种情况下极大地帮助您。您需要做的就是选择数据表中的第一行。运行宏时，它会询问您要在原始行之间插入多少空白行。提供数字时，宏会逐步遍历表格并开始插入空白行。当检测到原始表后的第一个空白单元格时，宏将停止。

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer

iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2344）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

展开表格。