VBA循环无法删除空行和错误字符行

Sub DeleteEmptyRows()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号
    
    For i = lastRow To 1 Step -1 ' 从最后一行开始往上遍历
        If WorksheetFunction.CountA(Rows(i)) = 0 Then ' 判断该行是否为空行
            Rows(i).Delete ' 删除空行
        End If
    Next i
End Sub

Sub DeleteErrorRows()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号
    
    For i = lastRow To 1 Step -1 ' 从最后一行开始往上遍历
        If Cells(i, 1) Like "*错误字符*" Then ' 判断该行是否包含错误字符
            Rows(i).Delete ' 删除错误字符行
        End If
    Next i
End Sub