各位老师，麻烦帮我看下这个程序有什么问题

18683137373

我这个程序，是想删除工作簿中所有工作表中，出现“空”的行，但执行的时候，只能删除当前工作表中出现“空”的行，其他工作表删不了，麻烦看看什么问题，感谢！


Sub 删除空行()

Dim ws As Worksheet
Dim lastrow As Long
Dim i As Long

For Each ws In ThisWorkbook.Sheets
lastrow = 10000
For i = lastrow To 1 Step -1
If WorksheetFunction.CountIf(Rows(i), "空") > 0 Then
ws.Rows(i).Delete Shift:=x1up
End If
Next i

Next ws

End Sub

zjdh

Sub 删除空行()
    Dim ws As Worksheet
    Dim lastrow As Long
    Dim i As Long
    For Each ws In ThisWorkbook.Sheets
        lastrow = 10000
        For i = lastrow To 1 Step -1
            If WorksheetFunction.CountIf(ws.Rows(i), "空") > 0 Then
                ws.Rows(i).Delete Shift:=x1up
            End If
        Next i
    Next ws
End Sub