导入后摆脱空行(Microsoft Excel)
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 [导入后摆脱空行]。