简化OR和和VBA

您可以循环的范围内，并打破如有细胞是""

Option Explicit 
Sub TestBlanks 
    Dim rngData As Range, rngCell As Range, blnRangeHasBlanks As Boolean 
    ' assume no blanks 
    blnRangeHasBlanks = False 
    ' iterate range and break on any blank 
    Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("F11:F21") 
    For Each rngCell In rngData 
     If rngCell.Value = "" Then 
      blnRangeHasBlanks = True 
      Exit For 
     End If 
    Next For 
    If blnRangeHasBlanks Then 
     ' ... do what you need 
    End If 
End Sub 

您可以检查如果您的范围内存在空白单元格。

Option Explicit 
Sub MyAnswer() 
    Dim rng As Range 
    Set rng = ActiveSheet.Range("F10:F100") 
    If rng.SpecialCells(xlCellTypeBlanks).Cells.Count = 0 Then 
     ' Stuff you need 
    EndIf 
End Sub