VBA如何清除未知范围的内容？

Sub ClearUnknownRange()
    Dim ws As Worksheet
    Set ws = ActiveSheet '或者指定要清除内容的工作表
    
    Dim cell As Range
    For Each cell In ws.UsedRange
        cell.ClearContents
    Next cell
End Sub

Sub ClearUnknownRange()
    Dim ws As Worksheet
    Set ws = ActiveSheet '或者指定要清除内容的工作表
    
    Dim cell As Range
    For Each cell In ws.UsedRange
        If IsNumeric(cell.Value) And cell.Value > 10 Then
            cell.ClearContents
        End If
    Next cell
End Sub