excel 怎么用函数公式查找出字符串在另一个字符串中的位置?
Function 找位置(a As String, c As String)
b = Split(a, "_", -1, 1)
For i = 0 To UBound(b)
If c = b(i) Then 找位置 = i + 1
Next
If 找位置 = 0 Then
Dim arr(1 To 6000, 1 To 1)
If 找位置 = 0 Then
arr(1, 1) = "c"
If arr(1, 1) = "c" Then
arr(2, 1) = "h"
If arr(2, 1) = "h" Then
arr(3, 1) = "r"
If arr(3, 1) = "r" Then
arr(4, 1) = "v"
If arr(4, 1) = "v" Then
arr(5, 1) = "x"
If arr(5, 1) = "x" Then
arr(6, 1) = "i"
If arr(6, 1) = "i" Then
arr(7, 1) = "n"
End If
End If
End If
End If
End If
End If
End If
For j = 1 To 7
t = t & arr(j, 1)
Next
找位置 = t
End If
End Function
谢谢您。但你提供的不是我要的“怎么用函数公式”,请看清标题。我不需要VBA代码。
哦,不好意思,函数公式也是vba代码定义的,只不过一个是系统内置,一个是自己设计而已。我以为是公式能满足你的需求就行。