过滤通过VBA中的空白

任何人都可以给我一些关于如何使用VBA代码过滤/删除空白的见解？ 出于某种原因，当我录制一个macros来做到这一点时，它不允许使用VBA构build的一些自定义函数保存它们的值。 谢谢。

Answer 1

以下代码将删除在选定列中有空白的行。 下面的代码假设您的数据中的第二列正在testing空白。 如果您需要其他帮助，请告知我们。

Sub DeleteBlanks() Dim rDataToProcess As Range Set rDataToProcess = Sheet1.Range("A1").CurrentRegion 'Field in the below method refers to the column that is being filtered, so the second colum rDataToProcess.AutoFilter field:=2, Criteria1:="" rDataToProcess.Offset(1).Resize(rDataToProcess.Rows.Count).EntireRow.Delete Sheet1.AutoFilterMode = False End Sub 

Answer 2

删除空白单元格的替代方法是设置一个范围，并使用Range([your range]).SpecialCells(xlCellTypeBlanks).Delete

编辑：如果你想删除整行， Range([your range]).SpecialCells(xlCellTypeBlanks).EntireRow.Delete