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")。
上面的代码已经过测试，仅供演示之用。