2023-09-26 09:53阅读: 42评论: 0推荐: 0

575_Excel 有用的VBA函数

1.Windows磁盘空间莫名消失？用它，立刻解决！2023-09-24 2.519_【无线攻防】黑客如何破解你的WiFi密码？2023-09-26

3.575_Excel 有用的VBA函数2023-09-26

4.267_Windows自带文件批量标号新姿势，1秒完成！2023-09-24 5.17_服务器、VPS与虚拟空间2023-09-24 6.158_office套件如何快速下载、瞬间激活？2023-09-24 7.388_免费申请office E5开发者订阅，附无限续期+私人网盘教程2023-09-26 8.554_AI自动识别生成srt字幕解决方案2023-09-26 9.492_Github如何下载指定文件夹2023-09-26 10.254_搜索利器Everything的“不务正业”之旅2023-09-24 11.574_typecho批量迁移图片到CDN图床2023-09-26 12.537_如何不依靠U盘，使用手机制作一个PE？2023-09-27 13.506_杂牌手柄游戏不适配？Steam这项功能其实就能解决2023-09-27 14.569_耳机去哪了2023-09-26

这是一篇原发布于2023-08-17 11:52:00得益小站的文章，备份在此处。

[scode type="blue"]本篇文章代码来自AI生成并经本人测试有效[/scode]

使用方法

要使用 VBA 制作一个函数。你可以按照以下步骤进行操作：

在 Excel 中按下 Alt + F11 打开 VBA 编辑器。
在 VBA 编辑器中，插入一个新的模块。选择“插入” -> “模块”。
在新插入的模块中，粘贴需要函数代码。
关闭 VBA 编辑器。

注意：启用vba需要保存为xlsm格式

现在，你可以在 Excel 中使用这个新创建的函数了。假设你要提取的单元格是 A1，添加的函数名称是ExtractAndSumNumbers，请输入以下公式：

=ExtractAndSumNumbers(A1)

函数列表

提取单元格内数字并相加

这个函数会逐个检查单元格中的字符，如果遇到数字则将其添加到一个字符串变量 numString 中，当遇到非数字字符时，将 numString 中的数字转换为数值并添加到结果变量 result 中。最后，将 result 作为函数的返回值。

使用效果&举例

	日期	本日详细	今日累计	累计
公式	2023/8/17	单位A18 单位B19 单位C2台	=ExtractAndSumNumbers(B3)	=C3+D2
效果	2023/8/17	单位A18 单位B19 单位C2台	39	39

Function ExtractAndSumNumbers(cell As Range) As Double
    Dim strValue As String
    Dim numString As String
    Dim result As Double
    
    result = 0
    strValue = cell.Value
    
    For i = 1 To Len(strValue)
        If IsNumeric(Mid(strValue, i, 1)) Then
            numString = numString & Mid(strValue, i, 1)
        Else
            If numString <> "" Then
                result = result + Val(numString)
                numString = ""
            End If
        End If
    Next i
    
    If numString <> "" Then
        result = result + Val(numString)
    End If
    
    ExtractAndSumNumbers = result
End Function

上一篇554_AI自动识别生成srt字幕解决方案

下一篇519_【无线攻防】黑客如何破解你的WiFi密码？

本文作者：游佚

本文链接：https://www.cnblogs.com/devyi/p/17729466.html