exce表引用数据_exce怎么把数据中的数字提出来

原问题：exce怎么把数据中的数字提出来
分类：编程开发 > 最后更新时间：【2017-05-25 17:11:27】
问题补充：

怎么能把数据里的6位数字都提出来？？？

最佳答案

是每个单元格内都有这样一组6位数字吗？还是只提取这样的6位数字?


追问：
每个单元格都有。但是位置不一样 就是图片中61.22.61 这种 每个数据里都有。 追答：
代码如下：Sub mytit()Dim x, y, mat, br(), reg, strSet reg = CreateObject("vbscript.regexp")y = Range("a65536").End(3).RowWith reg .Global = True .Pattern = "\d{2}\.\d{2}\.\d{2}" For x = 1 To y Set mat = .Execute(Cells(x, 1).Text) For Each str In mat n = n + 1 ReDim Preserve br(1 To n) br(n) = str Next Next Range("b1").Resize(n, 1) = Application.Transpose(br)End WithEnd Sub运行效果如下图：
  • 追答：
    运行效果图如果看不到，请点击你的问题进入网页模式查看。
    最佳答案由网友  QQ2207151376  提供
    • 公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
    18

    分享到：

    其他回答

    其它网友回答：
    1、给出数字的起始位置和长度。示例公式：=--mid(a1,5,3) 公式结果为提取A1单元格中从第5位开始的3个数字。2、提取某特定字符串后的数字。示例公式：=-lookup(0,-mid(a1,find("ABC",a1)+LEN("ABC"),row(1:99))) 公式结果为提取A1单元格中字符串ABC之后的数字。3、数字在一侧其他则中文字符组成。示例公式：数字在前，公式=left(a1,2*len(a1)-lenb(a1))；数字在后，公式=right(a1,2*len(a1)-lenb(a1))4、没有给出任何条件，只要求将单元格中的数字提出。通用公式=-lookup(0,-mid(a1,min(find(row(1:10)-1,a1&1/17)),row(1:99))) 按组合键ctrl+shift+enter结束公式。

      推荐