单元格中的数字分别提取出来

佛山小老鼠 · 发表于 2017-4-21 23:42

=IFERROR(MID(-LOOKUP(,-(1&MID($A2,SMALL(IF(ISNUMBER(-RIGHT(TEXT(MID($A2,ROW($1:$99),2),))),ROW($1:$99)),COLUMN(A1))+1,ROW($1:$99)))),2,99),"")

复制代码

凯哥003 · 发表于 2017-4-22 07:49

梁三刀木发表于 2017-4-21 11:32
Sub aa()

Dim rz As Object

大哥:好佩服你,好历害

健影 · 发表于 2017-6-11 23:19

高人啊，膜拜膜拜

zax010 · 发表于 2017-6-12 10:20

本帖最后由 zax010 于 2017-6-12 11:08 编辑

非正则，仅取数值：

Sub zz()
For x = 1 To [a65536].End(3).Row
      s = Cells(x, 1)
      For i = 1 To Len(s)
         If Mid(s, i, 1) <> "." And (Asc(Mid(s, i, 1)) <= 47 Or Asc(Mid(s, i, 1)) > 57) Then
            s = Replace(s, Mid(s, i, 1), " ")
         End If
      Next
      a = Split(Trim(s), " "): n = 0
      For j = 0 To UBound(a)
         If a(j) <> "" Then Cells(x, 2 + n) = a(j): n = n + 1
      Next
Next
End Sub

zax010 · 发表于 2017-6-12 10:24

本帖最后由 zax010 于 2017-6-12 11:10 编辑

>>>>>>>>>>>>>>>>>>>>>>

工作簿1.rar (15.53 KB, 下载次数: 19)

cbtaja · 发表于 2017-6-12 11:26

Sub test()
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = ".*?(\d{4,}).*?": reg.Global = True
arr = Range("A1").CurrentRegion.Resize(, 1)
For i = 1 To UBound(arr)
arr(i, 1) = reg.Replace(arr(i, 1), "$1 ")
tmp = Split(arr(i, 1), " ")
If UBound(tmp) Then Range("B" & i).Resize(1, UBound(tmp)) = tmp
Next
End Sub

复制代码

LMY123 · 发表于 2017-6-12 13:53

正则提取桩号

1121228509 · 发表于 2018-11-5 22:37

本帖最后由 1121228509 于 2018-11-5 22:38 编辑

佛山小老鼠发表于 2017-4-21 23:42

老师您好！
　　我遇到一个问题是要从单元格字符中提取数字，所以在这找到了您的帖子，下载了附件，用您的公式从单元格字符中提取数字，全部都可以实现提取的，可今天遇到一个无法提取的字符数字串，特邀请教老师帮助如何解决？问题：A２单元格字符串"JZ81Z68J97E120N",提取到的数字，B2"81", C2"68", D2".97E+122", E2"120"。
数组公式:=IFERROR(MID(-LOOKUP(,-(1&MID($A2,SMALL(IF(ISNUMBER(-RIGHT(TEXT(MID($A2,ROW($1:$99),2),))),ROW($1:$99)),COLUMN(A1))+1,ROW($1:$99)))),2,99),"")
谢谢！

		自动登录	找回密码
密码			免费注册

[已解决] 单元格中的数字分别提取出来

评分

评分

评分

最新热点 /1