多个表值的VBA减法

Sub SubtractValues()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim result As Double
    
    ' 设置要进行减法运算的表格范围
    Set rng = Range("A1:A10")
    
    ' 初始化结果为0
    result = 0
    
    ' 循环遍历每个表格中的数值，并进行减法运算
    For Each ws In ThisWorkbook.Worksheets
        For Each cell In rng
            ' 判断表格中是否有数值
            If IsNumeric(cell.Value) Then
                ' 进行减法运算
                result = result - cell.Value
            End If
        Next cell
    Next ws
    
    ' 输出结果
    MsgBox "减法运算的结果为：" & result
End Sub