提取单元格中纯数字的部分

xianghaixue · 发表于 2017-8-16 16:50

如图，我想需要单元格中，为数字的部分，如何提取？

476363814 · 发表于 2017-8-16 16:52

最好是上传附件，
这种问题：isnumber,find,right这些公式基本就可以解决了

jinlong506 · 发表于 2017-8-16 16:59

=MID(SUM(IFERROR(MID(A1,SMALL(IF(ISNUMBER(--MID(A1,ROW($1:$500),1)),ROW($1:$50)),ROW($1:$500)),1)/10^ROW($1:$500),0)),3,500) 数组公式如果目标在A1的话

weiqigreen · 发表于 2017-8-16 17:00

本帖最后由 weiqigreen 于 2017-8-16 17:27 编辑

VBA，正则！'原数据在A列，数字在B列
Sub test()
Dim reg, s$, arr, brr
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "([\d]+)"
reg.Global = True
With Sheets("sheet1")
      r = .[a65536].End(xlUp).Row
      arr = .Range("A1:A" & r)
      ReDim brr(1 To r, 1 To 1)
      For i = 1 To r
         temp = arr(i, 1)
         Set Ma = reg.Execute(temp)
         For Each g In Ma
            brr(i, 1) = g
         Next
      Next
      .Range("B1").Resize(r, 1) = brr

End With
End Sub

476363814 · 发表于 2017-8-16 17:11

=MID(B6,RIGHT(MIN(IF(ISNUMBER(--MID(B6,ROW(1:1000),1)),ROW(1:1000),10^9)),4),SUM(--ISNUMBER(--MID(B6,ROW(1:1000),1))))

xianghaixue · 发表于 2017-8-17 09:19

weiqigreen 发表于 2017-8-16 17:00
VBA，正则！'原数据在A列，数字在B列
Sub test()
Dim reg, s$, arr, brr

完全看不懂呃……这个是宏吗？

xianghaixue · 发表于 2017-8-17 09:20

476363814 发表于 2017-8-16 17:11
=MID(B6,RIGHT(MIN(IF(ISNUMBER(--MID(B6,ROW(1:1000),1)),ROW(1:1000),10^9)),4),SUM(--ISNUMBER(--MID(B6 ...

原来居然要嵌套这么多层的函数【惊！】

1989RAI · 发表于 2017-8-17 14:10

可以参考下附件，rn,cf做了两个自定义名称，可以在名称管理器中查看

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