如何用VBA同时在两个工作表中将文本转换为数字？

你的代码存在两个关键问题，导致无法正常运行：

1. Range变量赋值缺少Set关键字：VBA中给对象类型（如Range）赋值必须使用Set，否则会触发「类型不匹配」错误。
2. 跨工作表Range无法合并操作：Range(string1, string2)的写法仅适合同一工作表内的范围，不同工作表的Range对象不能通过这种方式合并，必须分别处理。

可行解决方案 #

方案一：直接分别处理两个工作表范围

Sub ConvertTextToNumber()
    Dim wsSummary As Worksheet, wsPPTs As Worksheet
    Dim rngSummary As Range, rngPPTs As Range
    
    ' 绑定目标工作表和范围
    Set wsSummary = ThisWorkbook.Worksheets("Virt_Summary")
    Set rngSummary = wsSummary.Range("A1:DZ50")
    Set wsPPTs = ThisWorkbook.Worksheets("Virt_PPTs")
    Set rngPPTs = wsPPTs.Range("A1:BW50")
    
    ' 转换第一个工作表的文本为数字
    With rngSummary
        .NumberFormat = "General"
        .Value = .Value
    End With
    
    ' 转换第二个工作表的文本为数字
    With rngPPTs
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

方案二：封装通用子过程（便于复用）

如果后续需要处理更多工作表范围，将转换逻辑封装成独立子过程会更高效：

Sub BatchConvertTextToNumber()
    ' 依次调用通用过程处理目标范围
    ConvertRangeToNumber ThisWorkbook.Worksheets("Virt_Summary").Range("A1:DZ50")
    ConvertRangeToNumber ThisWorkbook.Worksheets("Virt_PPTs").Range("A1:BW50")
End Sub

' 通用文本转数字子过程
Private Sub ConvertRangeToNumber(targetRng As Range)
    With targetRng
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

特殊情况处理（顽固文本格式）

如果部分单元格的文本数字无法通过.Value = .Value转换（比如带前置单引号、导入的特殊格式文本），可以改用TextToColumns方法，兼容性更强：

Private Sub ConvertRangeToNumber(targetRng As Range)
    With targetRng
        .NumberFormat = "General"
        .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
            FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    End With
End Sub

内容的提问来源于stack exchange，提问作者Michal Smętek