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

该代码段未分行，我将它复制一下，便于理解：

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

在使用时，假如说对e2单元格中的数字提取出来累加，结果存放到变量inum中，则代码如下：

inum = countnums(range("e2"))