如何查找字符串中的第一个数字字符

Function V(str As String) As Variant
Dim s As String
Dim i As Long
Dim A(0, 0 To 1)
For i = 1 To Len(str)
    s = Mid(str, i, 1)
    If IsNumeric(s) = True Then
        A(0, 0) = i
        A(0, 1) = s
    End If
Next
V = A
End Function

如果要从右向左查，可以将循环语句改一下起始值为len(str)、截止值为1、步长为-1。