提取文本中的数字

vleexhya

感谢各位老师的帮助！

A2单元格内容：密度（78KG）

A3单元格内容：密度(28KG)
A4单元格内容：密度(8KG)

请问各位老师，如何将数字提出来，规律：
1.数字前只有”密度”两个字和左括号，但左括号可能是中文状态的左括号，也可能是英文状态的左括号，而且不统一。
2.数字后面是KG。
3.数字有1位也有2位。
多谢！

小凡、、、

正则 reg    "\d+"

ykcbf1100

用正则啊，建议上个附件。

vleexhya

ykcbf1100 发表于 2024-8-27 16:53
用正则啊，建议上个附件。

已上附件，老师们说的正则，第一次听说。

wengjl

我不会用正则
代码长一点，也能解决

Sub ss()
    For i = 2 To 4
      aa = Cells(i, 1)
      aaval = ""
      For j = 1 To Len(aa)
        If Asc(Mid(aa, j, 1)) >= 48 And Asc(Mid(aa, j, 1)) <= 57 Then
          aaval = aaval & Mid(aa, j, 1)
        End If
      Next j
      Cells(i, 2) = aaval
    Next i
End Sub

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a2:b" & r)
   
7.         For i = 1 To UBound(arr)
   
8.             xm = Split(Replace(arr(i, 1), "（", "("), "(")
   
9.             If UBound(xm) > 0 Then
   
10.                 arr(i, 2) = Val(xm(1))
    
11.             End If
    
12.         Next
    
13.         .Range("a2:b" & r) = arr
    
14.     End With
    
15. End Sub
    

复制代码

chxw68

数据很有规律，不用正则也行。

杨建营

新手参与一下。

vleexhya

chxw68 发表于 2024-8-27 17:07
数据很有规律，不用正则也行。

谢谢老师！这数据还是有点不规律

chxw68

vleexhya 发表于 2024-8-27 17:16
谢谢老师！这数据还是有点不规律

那就用楼上提供的正则。