删除带有空格和空行的行 VBA

在VBA中，我们可以使用几种不同的方法来删除带有空格和空行的行。这些方法都涵盖在本文中。请继续阅读，了解如何删除带有空格和空行的行。

方法1：使用Trim函数删除空格

Trim函数可以删除字符串中的前导和尾随空格。在这种情况下，我们可以使用它来删除空格。使用以下代码行，我们可以删除Excel工作表中的所有空格。

Sub DeleteRowsWithSpace()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If WorksheetFunction.Trim(ActiveSheet.Rows(i)) = "" Then
        ActiveSheet.Rows(i).Delete
    End If
Next i
End Sub

方法2：使用循环遍历行并删除空格

我们也可以使用循环遍历行来删除空格。在这种情况下，代码如下：

Sub DeleteRowsWithSpace()
Dim i As Long, j As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    For j = 1 To ActiveSheet.UsedRange.Columns.Count
        If Cells(i, j) <> "" Then Exit For
    Next j
    If j > ActiveSheet.UsedRange.Columns.Count Then _
        ActiveSheet.Rows(i).Delete
Next i
End Sub

方法3：使用AutoFilter筛选出空行并删除

我们还可以使用AutoFilter来筛选出空行，并删除它们。代码如下：

Sub DeleteRowsWithSpace()
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:=""
ActiveSheet.UsedRange.Offset(1).SpecialCells _
    (xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

总结

这里提供了三种方法来删除带有空格和空行的行。您可以使用Trim函数、遍历行或AutoFilter来实现。您可以根据您的需求，选择使用其中的任何一种。

返回的代码片段如下：

```VBA
Sub DeleteRowsWithSpace()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If WorksheetFunction.Trim(ActiveSheet.Rows(i)) = "" Then
        ActiveSheet.Rows(i).Delete
    End If
Next i
End Sub

Sub DeleteRowsWithSpace()
Dim i As Long, j As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    For j = 1 To ActiveSheet.UsedRange.Columns.Count
        If Cells(i, j) <> "" Then Exit For
    Next j
    If j > ActiveSheet.UsedRange.Columns.Count Then _
        ActiveSheet.Rows(i).Delete
Next i
End Sub

Sub DeleteRowsWithSpace()
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:=""
ActiveSheet.UsedRange.Offset(1).SpecialCells _
    (xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub