Tom有很多次将工作表从另一个程序导入Excel的情况，因此他可以使用数据。导入效果很好，但是导入过程会增加很多（几十个，有时几百个）

其中没有数据的额外行。导入后，Tom必须手动删除这些多余的行，以便他可以使用其余数据。汤姆想知道是否有一种方法可以轻松摆脱这些空行。

有多种方法可以解决此问题。最简单的方法可能是按您选择的列对导入的数据进行排序。该列中所有不包含任何内容的行都以数据的结尾或开头结尾（取决于您是以升序还是降序排序），您可以轻松删除这些行。

显然，当您以这种方式进行排序时，最终数据可能会超出原始的导入顺序。如果您需要数据按原始顺序排列（但删除了空白行），只需在数据的左侧或右侧插入一列，用序号填充，按除添加的列以外的任何列进行排序，然后然后删除空白行（在编号列中仅包含某些内容）。

然后，您可以根据编号列进行第二次排序，您的数据将恢复其原始顺序。

另一种方法是遵循以下步骤：

。选择整个列。

。按F5。 Excel将显示“转到”对话框。

。单击特殊。 Excel将显示“转到特殊”对话框。

。选择空白，然后单击确定。 Excel仅在列中选择空白的那些单元格。

。从编辑菜单中选择删除。 Excel将显示“删除”对话框。

。选择整个行，然后单击确定。

如果您更喜欢使用宏来摆脱空白行，则可以使用类似于以下的内容：

Sub DeleteEmptyRows()

Dim LastRow As Long     Dim J As Long

LastRow = ActiveSheet.UsedRange.Rows.Count + _       ActiveSheet.UsedRange.Rows(1).Row - 1     Application.ScreenUpdating = False     For J = LastRow To 1 Step -1         If Application.WorksheetFunction.CountA(Rows(J)) = 0 Then             Rows(J).Delete         End If     Next J     Application.ScreenUpdating = True End Sub

为什么要使用宏？因为您可能需要一周又一周删除空行。只需将宏放入您的个人工作簿中，然后就可以在需要时访问它。

在以下页面上可以找到有关此主题的其他信息：

http://www.cpearson.com/Excel/deleting.htm#DeleteBlankRows http://dmcritchie.mvps.org/excel/lastcell.htm

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

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

导入后摆脱空行。