VBA:将所有工作表文本转换为数字

Sub ConvertTextToNumber()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置要转换的范围，这里假设要转换的范围是A1到Z100
        Set rng = ws.Range("A1:Z100")
        
        ' 循环遍历范围内的每个单元格
        For Each cell In rng
            ' 检查单元格的数据类型是否为文本
            If IsNumeric(cell.Value) = False And IsEmpty(cell.Value) = False Then
                ' 如果是文本，则将其转换为数字
                cell.Value = Val(cell.Value)
            End If
        Next cell
    Next ws
End Sub