如何使用公式提取文字中的数字?Excel中有没有一种公式或者VBS可以像如图所示一样只提取OT前的数字可用者高分悬赏啊!
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/31 12:28:34
如何使用公式提取文字中的数字?Excel中有没有一种公式或者VBS可以像如图所示一样只提取OT前的数字可用者高分悬赏啊!
如何使用公式提取文字中的数字?
Excel中有没有一种公式或者VBS可以像如图所示一样只提取OT前的数字
可用者高分悬赏啊!
如何使用公式提取文字中的数字?Excel中有没有一种公式或者VBS可以像如图所示一样只提取OT前的数字可用者高分悬赏啊!
用公式麻烦,用VBA较简单,代码如下,详见附件
Private Sub CommandButton1_Click()
Dim I%,S$,X!,Ra As Range
Set Ra = Cells.Find("Examples:")
If Ra Is Nothing Then MsgBox "没有找到原始数据列:Examples":Exit Sub
Set Ra = Range(Ra.Offset(1),Cells(Cells.Rows.Count,Ra.Column).End(3))
Ra.Offset(,1).ClearContents
For Each Ra In Ra
S = Ra.Text
I = InStr(S,"OT")
If I > 0 Then
For j = I - 1 To 1 Step -1
If InStr("0123456789.",Mid(S,j,1)) = 0 Then Exit For
Next
X = Val(Mid(S,j + 1))
If X > 0 Then Ra.Offset(,1) = X
End If
Next
End Sub