字串位置計算問題 - Excel程式區

[發問] 字串位置計算問題

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2015-8-26 16:48 | 顯示全部帖子

Function zz(x, y)
For i = 1 To Len(x)
If Mid(UCase(x), i, 1) = UCase(y) Then a = a & ";" & i
Next
zz = Mid(a, 2)
End Function

自定函數.zip (8.6 KB)

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。