用VBA提取字符串中的数字

上一篇讲了用 python 提取字符串中的数字，这次用VBA来实现。总体思路和 python 是一样的，代码如下：

Option ExplicitSub GetNumbers()Dim from_string As String, convert_numbers As StringDim i, j, k, m, first_number_locationDim i1 As StringDim check_start(9) As String, check_end(10) As StringDim split_string() As String, get_numbers() As String' 给 from_string 赋值from_string = Cells(1, 1)from_string = CStr(from_string)' 先求出 check_start 和 check_end' 用于后续检验 from_string 中每个字符是否是数字For i = 0 To 9i1 = CStr(i)check_start(i) = i1check_end(i) = i1Next icheck_end(10) = "."' 将 from_string 拆分，每个字符都存到 split_string 中ReDim split_string(Len(from_string) - 1)For i = 1 To Len(from_string)split_string(i - 1) = Mid(from_string, i, 1)Next i' 先求出 split_string 中第一个数字及其位置For i = LBound(split_string()) To UBound(split_string())For j = LBound(check_start()) To UBound(check_start())If split_string(i) = check_start(j) ThenReDim get_numbers(UBound(split_string) - i)get_numbers(0) = split_string(i)first_number_location = iGoTo GetFirstNumberAlreadyEnd IfNext jNext iGetFirstNumberAlready:m = 1' 从第一个数字开始，求出之后紧连的每个数字，包括小数点For j = first_number_location + 1 To UBound(split_string())For k = LBound(check_end()) To UBound(check_end())If split_string(j) = check_end(k) Thenget_numbers(m) = split_string(j)m = m + 1End IfNext kNext j' 把 get_numbers() 输出For j = LBound(get_numbers()) To UBound(get_numbers())convert_numbers = convert_numbers & get_numbers(j)Next jMsgBox convert_numbersEnd Sub

用VBA提取字符串中的数字相关推荐

linux 取出字符中数字,使用awk提取字符串中的数字或字母
1.提取字符串中的数字$ echo 'dsFUs34tg*fs5a%8ar%$#@' |awk -F "" ' { for(i=1;i<=NF;i++) { if ($i ~ ...
awk 内嵌正则提取字符串_使用awk提取字符串中的数字或字母
1.提取字符串中的数字 $ echo 'dsFUs34tg*fs5a%8ar%$#@' |awk -F "" ' { for(i=1;i<=NF;i++) { if ($i ...
sql提取字符串中的一部分数据_学会这三招提取字符串中的数字不用愁
在Excel表格中提取字符串中的数字是我们经常会遇到的问题的,那么平时朋友们都用什么方法呢?今天分享三种方法,学会这三招,提取字符串中的数字不用愁. 一.使用Ctrl+E快速智能填充快捷键: 说明: ...
php提取字符串中数字,php提取字符串中的数字教程
字符串是我们程序员必定接触法人,有时候工作中需要在一串字符串中将所有的数字提取出来,其实研究一下这种方法还挺多,对如何使用PHP将字符串中的数字提取出来的功能我们做了一个小总结,和大家一起分享一下,总 ...
php 取字符串中的字母数字,php如何提取字符串中的数字？php提取字符串中数字的方法总结（附代码）...
本篇文章给大家带来的内容是关于php如何提取字符串中的数字?php提取字符串中数字的方法总结(附代码) ,有一定的参考价值,有需要的朋友可以参考一下,希望对你有所帮助. PHP提取字符串中的第一组数字 ...
如何利用python提取字符串中的数字
目录一.isdigit() 函数二.filter() 函数三.提取一段字符串中的数字四.匹配指定字符串开头的数字参考资料一.isdigit() 函数 isdigit() 函数是检测输入字符 ...
数据清洗：提取字符串中的数字
数据清洗:提取字符串中的数字在我们日常进行数据清洗的过程中,可能会遇到需要对字符串进行操作和处理的任务.在下面的例子中,我们收到了一份关于医院患者输注血制品的医嘱单,但遗憾的是,在这份数据集中,输注 ...
python小记（五）：python如何提取字符串中的数字或其他
python中"python如何提取字符串中的数字或其他前言一.正则表达式前言自用一.正则表达式 import re ^ 匹配字符串的开始. $ 匹配字符串的结尾. \b 匹配一个 ...
提取字符串中的数字（C语言）
提取字符串中的数字(C语言) - 康建伟 - 博客园https://www.cnblogs.com/kangjianwei101/p/5220336.html 大佬的分享,在这里方便自己总结学习,因此 ...

用VBA提取字符串中的数字

用VBA提取字符串中的数字相关推荐

最新文章

热门文章