Excel VBA如何判断指定单元格区域内是否存在有值的单元格

你的代码存在3个核心语法&逻辑错误 #

• 错误1：VBA内置的三元函数是IIf不是If，你少写了一个I，直接写If会触发编译错误
• 错误2：多单元格区域的.Value返回的是二维数组，不能直接和空字符串做比较，运行时会抛出类型不匹配错误
• 错误3：你已经用WS1指定了工作表对象，Range参数里不需要重复加Sheet1!前缀，属于冗余写法还可能引发引用错误

修正后可运行的基础写法 #

For i = 1 To DataRange.Rows.Count
    ' 用WorksheetFunction.CountA统计当前行A到Z列的非空单元格数量
    CheckCells = IIf(Qty > 0 And WorksheetFunction.CountA(WS1.Range("A" & i & ":Z" & i)) > 0, "HasValue", "NoValue")
    ' 这里可以补充你对CheckCells的后续处理逻辑，不然循环里赋值会被后续行的结果覆盖
Next i

更高性能的优化方案（无需逐行循环） #

如果只需要判断整个DataRange对应的A到Z列区域有没有非空值，不需要逐行遍历，直接用CountA一次性判断即可：

' 先定义待判断的目标区域
Dim CheckRange As Range
Set CheckRange = WS1.Range("A" & DataRange.Row & ":Z" & (DataRange.Row + DataRange.Rows.Count - 1))

CheckCells = IIf(Qty > 0 And WorksheetFunction.CountA(CheckRange) > 0, "HasValue", "NoValue")

特殊场景适配 #

如果待判断区域包含公式返回的空值=""，CountA会将其判定为非空，这种场景可以替换成Find方法判断真实可见的非空值：

CheckCells = IIf(Qty > 0 And Not CheckRange.Find("*", LookIn:=xlValues) Is Nothing, "HasValue", "NoValue")

内容的提问来源于stack exchange，提问作者Patrick