提取年与万之间的数字

APPLE123 · 发表于 2024-3-21 20:05

提取“年”与“万”之间的数字，数字有的是整数，有的带有小数点。
数字前面还有其他的字符，字数不等，内容差异较大。
希望使用正则表达，提取数字放在E列。
本例模拟结果详见E列红色数字。
谢谢！

shiruiqiang · 发表于 2024-3-21 20:19

本帖最后由 shiruiqiang 于 2024-3-21 20:41 编辑

^星^ · 发表于 2024-3-21 20:21

提取年与万之间的数字.zip (15.41 KB, 下载次数: 11)

fzxba · 发表于 2024-3-21 20:31

Sub test1() '
  Dim ar, s As String, i As Long
  With Range("A1").CurrentRegion
ar = Intersect(.Offset(0), .Offset(3)).Columns(2)
  End With
  With CreateObject("VBScript.RegExp") ' re
.Pattern = "^(\D+)(\d+\.*\d*)$"
.Global = True
For i = 1 To UBound(ar)
   s = Split(Split(ar(i, 1), "年")(1), "万")(0)
   ar(i, 1) = .Replace(s, "$2")
Next
  End With
  Range("H4").Resize(UBound(ar)) = ar
  Beep
End Sub

limonet · 发表于 2024-3-21 20:33

关键字：$1

limonet · 发表于 2024-3-21 20:34

Sub limonet()
Dim Arr As Variant, i%
Arr = Range("B4:B13")
With CreateObject("vbscript.regexp")
      .Pattern = ".*?(\d+(\.\d+)?)(?=万).*"
      For i = 1 To UBound(Arr)
         Arr(i, 1) = .Replace(Arr(i, 1), "$1")
      Next i
End With
Range("F4").Resize(UBound(Arr), 1) = Arr
End Sub

ykcbf1100 · 发表于 2024-3-21 21:02

用正则比较合适。

ykcbf1100 · 发表于 2024-3-21 21:03

参与一下。。。

Sub ykcbf() '//2024.3.21
Dim reg, mh
Set reg = CreateObject("vbscript.regexp")
With Sheets("Sheet1")
r = .Cells(Rows.Count, "a").End(xlUp).Row
arr = .[a1].Resize(r, 5)
With reg
.Global = True
.Pattern = "(\d+(\.\d+)?)万"
For i = 4 To UBound(arr)
s = arr(i, 2)
Set mh = .Execute(s)
arr(i, 5) = mh(0).submatches(0)
Next
End With
.[a1].Resize(r, 5) = arr
End With
End Sub

复制代码

伊可赛二 · 发表于 2024-3-22 22:43

本帖最后由伊可赛二于 2024-3-22 22:45 编辑

明天会更好zj · 发表于 2024-3-23 08:06

这个用简单的数组公式就行，没有必要用代码=-LOOKUP(1,-RIGHT(LEFT(B4,FIND("万",B4)-1),ROW($1:$15)))

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

[求助] 提取年与万之间的数字

评分

评分

评分

评分

评分

评分