• 百 度
  • 京 东
  • 淘 宝
  • 知 乎
  • Bing
  • Google
  • Yandex
  • Quora
  • GitHub
  • StackOverflow
  • SegmentFault
  • 医 疗

Excel实现截取提取单元格中的所有数字累加求和

Excel实现截取提取单元格中的所有数字累加求和。

1.执行 工具 --→ 宏 --→ Visual Basic编辑器 菜单命令( 或 按 Alt+F11 快捷键),打开 Visual Basic编辑窗口

2.在窗口中,执行 插入 --→ 模块 菜单命令,插入一个新的模块 模块1

3.在右边的 代码窗口 中输入代码;

4.关闭窗口,自定义函数完成;以后可以像使用内置函数一样使用自定义函数。

提示:用上面方法自定义的函数通常只能在相应的工作簿中使用。

代码示例如下:

Option Explicit
Function CountNums(mg As Range)
   Dim X As Integer
   For X = 1 To VBA.Len(mg) '将单元格中的数字取出后累加
      If Mid(mg, X, 1) Like "[0-9]" Then
            CountNums = CountNums + Val(Mid(mg, X, Len(mg)))
            X = X + Len(Evaluate(Val(Mid(mg, X, Len(mg)))))
      End If
   Next
End Function

转载请注明来源。

文章标题:Excel实现截取提取单元格中的所有数字累加求和

本文作者:bas369.com

发布时间:2020-09-24, 17:28:00

最后更新:2021-07-26, 11:15:46

原始链接:https://www.bas369.com/more/learning_notes/2020/09/24/Excel%E5%AE%9E%E7%8E%B0%E6%88%AA%E5%8F%96%E6%8F%90%E5%8F%96%E5%8D%95%E5%85%83%E6%A0%BC%E4%B8%AD%E7%9A%84%E6%89%80%E6%9C%89%E6%95%B0%E5%AD%97%E7%B4%AF%E5%8A%A0%E6%B1%82%E5%92%8C/

版权声明: "署名-非商用-相同方式共享 4.0" 转载请保留原文链接及作者。


  • 关于我们
  • 苏公网安备 32132302010228号
  • 联系我们
目录