如何判断UserForm中Spreadsheet Control的所有单元格是否为空？

我明白你在UserForm里用Spreadsheet Control时遇到的判断空单元格的麻烦了——试过各种方法要么报错要么没反应，确实头疼。下面给你几个靠谱的解决方案，亲测有效：

Spreadsheet Control的底层逻辑和Excel工作表很像，我们可以先获取它的已使用范围（UsedRange），然后逐个单元格检查内容：

Function IsSpreadsheetEmpty(spreadsheet As Object) As Boolean
    Dim ws As Object
    Dim cell As Object
    Dim usedRange As Object
    
    Set ws = spreadsheet.ActiveSheet
    Set usedRange = ws.UsedRange
    
    ' 特殊情况：如果UsedRange只有一个单元格且为空，直接判定为空
    If usedRange.Cells.Count = 1 And Trim(usedRange.Value) = "" Then
        IsSpreadsheetEmpty = True
        Exit Function
    End If
    
    ' 遍历所有已使用单元格，只要找到非空内容就返回False
    For Each cell In usedRange
        If Trim(cell.Value) <> "" Then
            IsSpreadsheetEmpty = False
            Exit Function
        End If
    Next cell
    
    IsSpreadsheetEmpty = True
End Function

调用示例 #

在你的UserForm事件（比如按钮点击）里这么用：

Private Sub CommandButton1_Click()
    If IsSpreadsheetEmpty(Me.Spreadsheet1) Then
        MsgBox "Spreadsheet Control里所有单元格都是空的！"
    Else
        MsgBox "Spreadsheet Control里有内容哦！"
    End If
End Sub

如果不想逐个遍历，可以利用SpecialCells直接查找有内容的单元格（常量或公式），找不到的话就说明整个控件是空的：

Function IsSpreadsheetEmptyFast(spreadsheet As Object) As Boolean
    Dim ws As Object
    Dim hasContent As Boolean
    
    Set ws = spreadsheet.ActiveSheet
    
    On Error Resume Next ' 找不到目标单元格会报错，先临时忽略错误
    ' 查找有常量值的单元格
    ws.UsedRange.SpecialCells(xlCellTypeConstants).Select
    If Err.Number = 0 Then
        hasContent = True
    Else
        ' 再查找有公式的单元格
        ws.UsedRange.SpecialCells(xlCellTypeFormulas).Select
        If Err.Number = 0 Then
            hasContent = True
        Else
            hasContent = False
        End If
    End If
    On Error GoTo 0 ' 恢复正常错误处理
    
    IsSpreadsheetEmptyFast = Not hasContent
End Function

额外注意事项 #

• 如果你用的是早期绑定，记得在VBA编辑器里引用Microsoft Office Spreadsheet xx.x Object Library；上面的代码用的是后期绑定（Object类型），兼容性更好，不用额外引用。
• 有时候UsedRange会保留历史范围（比如之前填过内容后来删除了），可以先重置一下UsedRange确保准确性：

ws.UsedRange ' 触发UsedRange更新
ws.Cells(ws.Rows.Count, ws.Columns.Count).Select
ws.Cells(1, 1).Select

内容的提问来源于stack exchange，提问作者Luiz Vaughan