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

Sub ShowEmptyCellsMessage()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim emptyCells As String
    
    ' 设置要检查的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 设置要检查的范围
    Set rng = ws.UsedRange ' 检查工作表中的所有使用范围
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格是否为空
        If IsEmpty(cell) Then
            ' 将空单元格的地址添加到字符串中
            emptyCells = emptyCells & cell.Address & vbCrLf
        End If
    Next cell
    
    ' 显示消息框，显示空单元格的地址
    If emptyCells <> "" Then
        MsgBox "以下单元格为空：" & vbCrLf & emptyCells
    Else
        MsgBox "没有空单元格。"
    End If
End Sub