word表格跟越关肿么修改数据

Total

Sub sum_range()Dim rng As Range, Total As DoubleSet rng = ActiveDocument.RangeFor Each cell In rngIf cell.Value Like "[0-9.-]*" ThenTotal = Total + Val(cell.Value)Next cellrng.End = rng.EndEnd Sub