我需要提取一个不同的数字从Excel中使用VBA字符串

tyky79it  于 2023-06-07  发布在  其他
关注(0)|答案(1)|浏览(148)

我需要使用VBA从Excel中的字符串中提取一个数字
字符串的一个例子是:
58.00公里旅费报销2001 - 3500 cc汽油:51.62 @差旅报销
站点-黄色
注解:位置1的OT职责来自位置2。
我需要提取的数字是支付的金额,即51.62,这个数字总是变化的,但总是在:和@。
所有的帮助感激不尽。

lskq00tm

lskq00tm1#

这个代码为我工作。

Option Explicit

Sub sbReimbursement()
 Dim sExpenses As String
 Dim iColonPos As Integer
 Dim iAtPos As Integer
 Dim sPrice As String
 sExpenses = "58.00 km Travel Reimbursement 2001 - 3500cc Petrol: 51.62 @ Travel Reimbursement"
 iColonPos = InStr(1, sExpenses, ":")
 iAtPos = InStr(1, sExpenses, "@")
 sPrice = Trim(Mid(sExpenses, iColonPos + 1, iAtPos - iColonPos - 1))
 MsgBox sPrice
End Sub

相关问题