VBA EXCEL 如何写以下的程序

从第一个sheet 到第20个sheet,sheet的名字各不相同，每个sheet,如果H
列 第i行为空值就删掉第i行，。请问程序怎么写？有个范本，但是运行下来不对

Sub ClearBlank()
For i = 1 To 3
For j = 6 To 10
If Sheeti.Range("B" & j).Value = "" Then
ActiveWorkbook.Worksheets("Sheeti").Range("B" & j, "B" & j).EntireRow.Delete
End If
Next j
Next i
End Sub

另外如果是H列第i行的值为0，才删掉i行，怎么改？

---

这个代码虽然有点笨，但不论你有多少工作表，都可以一网打尽。
如果仍然觉得删除的力度不够，搜如高可以把1 to 10设置为1 to 20应该橡宽就没什么问题了

Sub ClearBlank()
Application.ScreenUpdating = False
For t = 1 To 10
For sh = 1 To Sheets.Count
Sheets(sh).Select
For i = 1 To ActiveSheet.[h65536].End(xlUp).Row
If ActiveSheet.Range("H" & i) = "世尺" Then ActiveSheet.Rows(i).EntireRow.Delete

Next
Next
Next
Application.ScreenUpdating = True
End Sub

记得加分，总是0分，是不好的，要尊重劳动成果

---

Sub ClearBlank() '删除谨滑H列I行为空的
For Each sht In Sheets
For i = sht.Range("h65536").End(xlUp).Row To 1 Step -1
If sht.Range("H" & i).Value = "" Then sht.Range("H" & i, "H" & i).EntireRow.Delete
Next
Next
End Sub

Sub ClearZero() '删除H列戚晌拦I行为0的
For Each sht In Sheets
For i = sht.Range("h65536").End(xlUp).Row To 1 Step -1
If sht.Range("H" & i).Value = 0 Then sht.Range("高胡H" & i, "H" & i).EntireRow.Delete
Next
Next
End Sub

---

Sub ClearBlank()
For i = 1 To 3
For j = 6 To 10
If Sheets(i).cells(j,2).Value = "斗陵" Then _
cells(j,2).EntireRow.Delete
Next j
Next i
End Sub

不知道你想干什高知么，只戚销消能改下语法

---