Excel中如何提取数字累加计算

求助难度：★★★

    读者求助：电脑高手，我这个疑问不知道是不是有点故意刁难的嫌疑，但请你必须要帮帮我！我现在手中有很多非标准的Excel，单元格里面就有文字，也有数字，我不知道怎么提权数字进行累加，抓狂了。麻烦的是，这些非标准的Excel，还不能以打回去重做（关系比较复杂，就不多说了），如何处理？冰天雪地跪求帮助！

    电脑高手：你的疑问比较棘手，要让Excel自动识别文本中的数字并将其提取出来进行累加，可不是一个简单的活。电脑高手的方法是这样，自定义一个函数CountNums，并赋予它提取数字并累加的功能。参考代码如下所示：

    Function CountNums（rng As Range）
    Dim X as integer
    For X = 1 To VBA.Len（rng）
   ‘将单元格中的数字取出后累加
    If Mid（rng， X， 1） Like “[0-9]” Then
    CountNums = CountNums + Val（Mid（rng， X， Len（rng）））
    X =X + Len（Evaluate（Val（Mid（rng， X， Len（rng）））））
    End If
    Next X
    End Function

上一个：如何使用EXCEL实现机打支票
下一个：两个单元格区域间如何自由数据交换