VBA：在点击之前，不接受单元格为空

Question

我正在创建一个VBA宏，我在其中选择所有空单元格。 它可以工作，但即使某些单元格为空，Excel也不会让它们变空，直到我双击它们为止。

有人知道这是为什么吗？

Answer 1

这些细胞是具有零长度字符串的细胞 为了能够评估它们，请尝试使用Len函数。

示例：

Sub test()

Dim cel, rng As Range, NoVal As Boolean, rngselection As String, i As Long

Set rng = ThisWorkbook.Sheets(1).Range("A1:A5")

rngselection = ""
i = 1
For Each cel In rng
    NoVal = IIf(Len(cel.Value) = 0, True, False)
    If NoVal Then
        If i > 1 Then
            rngselection = rngselection & "," & cel.Address
        Else
            rngselection = cel.Address
        End If
        i = i + 1
    End If
Next cel
Range(rngselection).Select

End Sub

这将选择Range("A1:A5")中的所有空单元格 上述代码仅经过测试并仅用于演示目的。