请问各位老师，我这个程序为什么不能执行双重循环

AndyLai1014

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


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

zjzyj

应该是CountIf(ws.Rows(i), "空")这个引起的