急 提取数字

cql465505

鄂龙蒙

465505     是这数字？！

约定的童话

记得连附件都没来得及上传

cql465505

Book1.rar (2.14 KB, 下载次数: 31)

2020-1-13 14:54 上传

点击文件名下载附件

yes363001640

是这样吗？用ctrl+E就完成了

micch

split+val？？

静看流年RSSQ

函数   你的表格居然超嵌套了。哎、
区域数组、练习一下。无视我就好。
=-LOOKUP(,INDEX(IFERROR(-MID($A1,TRANSPOSE(MODE.MULT(ROW($2:$100)+N(MID($A1,ROW($1:$99),2)=".."))),ROW($1:$9)),""),,COLUMN(A1:D1)))

cql465505

感谢大家的帮助 原来有个程序 有点问题（处理的数据有空的）请大侠帮助 book2.rar (14.44 KB, 下载次数: 24)

2020-1-13 16:58 上传

点击文件名下载附件

Sub test()
  Dim r%, i%
  Dim arr, brr
  Dim reg As New RegExp
  With reg
    .Global = True
    .Pattern = "\d+\.\d{2,}"
  End With
  With Worksheets("sheet1")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("a2:a" & r)
    ReDim brr(1 To UBound(arr), 1 To 50)
    For i = 1 To UBound(arr)
      Set mh = reg.Execute(arr(i, 1))
      For j = 0 To mh.Count - 1
        brr(i, j + 1) = Val(mh(j))
      Next
    Next
    .Range("c2").Resize(UBound(brr), UBound(brr, 2)) = brr
  End With
End Sub

一把小刀闯天下

cql465505 发表于 2020-1-13 17:00
感谢大家的帮助 原来有个程序 有点问题（处理的数据有空的）请大侠帮助
Sub test()
  Dim r%, i%

'目测了一下应该差不多，输出最大支持10列，自己修改，，，

Option Explicit

Sub test()
  Dim arr, i, j, t, n
  arr = [a1].CurrentRegion.Resize(, 1).Value
  ReDim brr(1 To UBound(arr, 1), 1 To 10)
  For i = 1 To UBound(arr, 1)
    For j = 1 To 4
      arr(i, 1) = Replace(arr(i, 1), "AA" & j, vbNullString)
    Next
    t = Split(arr(i, 1), ".."): n = 0
    For j = 0 To UBound(t)
      If Len(t(j)) Then n = n + 1: brr(i, n) = t(j)
    Next
  Next
  [c1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

cql465505

非常感谢一把小刀闯天下 谢谢