求教，为啥红色区域消除不干净，谢谢

幻影之谷

Sub 消除()
Dim i&, n&, m&
Dim sh As Worksheet
Application.DisplayAlerts = False
n = ThisWorkbook.Sheets.Count
For m = 2 To n
Set sh = Sheets(m)
For i = 1 To [A65536].End(3).Row
If sh.Cells(i, 8) = "" Then
sh.Range(sh.Cells(i, 1), sh.Cells(i, 7)) = Clear
If sh.Cells(i, 10) = "" Then
sh.Range(sh.Cells(i, 11), sh.Cells(i, 17)) = Clear
If sh.Cells(i, 26) = "" Then
sh.Range(sh.Cells(i, 19), sh.Cells(i, 25)) = Clear
If sh.Cells(i, 28) = "" Then
sh.Range(sh.Cells(i, 29), sh.Cells(i, 35)) = Clear
End If
End If
End If
End If
Next
Next
End Sub

vbee

先学习一下IF语句

lsdongjh

幻影之谷

lsdongjh 发表于 2018-8-17 12:07

我明白哪里错了，谢谢，我想的是独立的某一列有单元格某个区域就清除掉，原来是并列关系，我说为什么运行后后面的和前面齐平

幻影之谷

vbee 发表于 2018-8-17 11:53
先学习一下IF语句

额，我以为加多个if是不相干的，不知道在里面是一个并列关系，end if加在每个if下就可以了，这么简单的问题谢谢指教

幻影之谷

lsdongjh 发表于 2018-8-17 12:07

谢谢您的图