循环VBA语句在继续子之前检查空单元

我是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的网站

代码问题

 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