参考如下:
以固定字眼“槽”和“口”进行数据提取。
文本位置在A列,
槽编号放在B列,使用公式:
B2=MID(A2,FIND("槽",A2)+2,FIND("口",A2)-FIND("槽",A2)-4)
端口编号放在C列,使用公式:
C2=RIGHT(A2,LEN(A2)-FIND("口",A2)-1)
两个公式都可以往下拉复制公式。
示例
希望能帮上忙!
Function 提取数据(tt As String, n As Long)
Set objRegx = CreateObject("vbscript.regexp")
objRegx.Global = True
objRegx.Pattern = tt & "\D*(\d+\.*\d*)"
For i = 1 To Sheet1.[A1048576].End(3).Row
If objRegx.test(Sheet1.Cells(i, 1)) Then
Sheet1.Cells(i, n) = objRegx.Execute(Sheet1.Cells(i, 1))(0).SubMatches(0)
Else
Sheet2.Cells(i, n) = 0
End If
Next i
End Function
Sub 提取()
aa = 提取数据("槽:", 2)
aa = 提取数据("端口:", 3)
End Sub
留名存储,以后采用
用代码好了,用关键词分割字符串,然后取关键词后面的值。