如何比较vba中单元格的ASCII值？

Question

我试图遍历工作表并突出显示“空白”单元格。这些空白单元格中的一些具有空格，换行符等，并且效果不佳。这是我的代码：

Dim Kibble as String


For i = 1 To coor(1)
Columns(i).Select
    For k = 1 To coor(2)
        Kibble = Cells(k, i).Value
        If IsEmpty(Cells(k, i)) Then
            Cells(k, i).Interior.ColorIndex = 5
        ElseIf Asc(Kibble) <= 32 Then
            Cells(k, i).Interior.ColorIndex = 5
        End If

首先在If语句中突出显示所有真实的空白值，然后在ElseIf部分中突出显示该字符串中ASCII值小于32的所有单元格。我不能让它运行没有错误。

Answer 1

我怀疑粗磨某种程度上是一个空文字串。

尝试以下操作（尽管您仍然在两种情况下都采用相同的格式）

If Kibble = vbNullString Then
    Cells(k, i).Interior.ColorIndex = 5
ElseIf Asc(Kibble) <= 32 Then
    Cells(k, i).Interior.ColorIndex = 5
End If

如果失败，请提供发生错误时Kibble的值。