循环VBA语句以在继续sub之前检查空单元格

Question

我是VBA的新手。如何更改以下代码以检查单元Q1：Q5而不仅仅是Q1。此外，是否可以暂时突出显示空的单元格？

If ActiveSheet.Range("Q1").Value = "" Then
    Answer = MsgBox("You have not entered all of the required details.", vbCritical, "Error")
Exit Sub
End If

Answer 1

要突出显示空白单元格，请使用条件格式（无需代码即可应用）

见Debra Dalgleish的site

代码问题

Sub CellCheck()
Dim rng1 As Range
Set rng1 = Range("Q1:Q5")
If Application.CountA(rng1) <> rng1.Cells.Count Then _
    Answer = MsgBox("You have not entered all of the required details.", vbCritical, "Error")
End Sub