Tom有很多次将工作表从另一个程序导入Excel的情况,因此他可以使用数据。导入工作正常,但是导入过程会增加很多(几十个,有时数百个)

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

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

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

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

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

。选择整个列。

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

。单击特殊。 Excel将显示“转到特殊”对话框。 (请参见图1。)

。选择空白,然后单击确定。 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培训的来源。

本技巧(7988)适用于Microsoft Excel 2007、2010、2013和2016。您可以在此处为Excel的较旧菜单界面找到此技巧的版本:

链接:/ excel-Getting_Rid_of_Empty_Rows_after_Importing [导入后摆脱空行]。