VBA 中按空格过滤

Question

谁能给我一些关于如何使用 VBA 代码过滤/删除空白的见解？由于某种原因，当我录制宏来执行此操作时，它不允许使用 VBA 构建的某些自定义函数来保存它们的值。谢谢。

Answer 1

下面的代码将删除选定列中具有空白的行。下面的代码假设正在测试数据中的第二列是否为空白。如果您需要其他帮助，请告诉我们。

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