所有空单元格的单个消息框的Excel VBA

Question

我正在尝试返回D8:D13范围内所有空单元格的地址 我想显示一个消息框，列出所有返回的地址（如果有的话）。

例如：

我想要一个消息框，上面写着＆＃34; D9，D10，D11和D13都是空的。＆＃34;

Answer 1

你的意思是下面的代码：

Option Explicit

Sub GetEmptCells()

Dim C As Range
Dim MsgStr As String

For Each C In Range("D8:D13") ' <-- change the range in this line
    If C.Value2 = "" Then
        If MsgStr = "" Then
            MsgStr = C.Address(False, False)
        Else
            MsgStr = MsgStr & "," & C.Address(False, False)
        End If
    End If
Next C

MsgBox MsgStr & " cells are empty"

End Sub