- 帖子
- 6
- 主題
- 2
- 精華
- 0
- 積分
- 50
- 點名
- 92
- 作業系統
- windows
- 軟體版本
- office2016
- 閱讀權限
- 20
- 註冊時間
- 2019-9-6
- 最後登錄
- 2024-4-19
   
|
本帖最後由 JasnH 於 2019-10-19 18:25 編輯
Sub test1()
p = 5 'The position of nth "_"
tx = Cells(1, 1)
For i = 1 To Len(tx)
If Mid(tx, i, 1) = "_" Then jo = jo & " " & i
Next i
s = Split(Mid(jo, 2))
Ans = s(p - 1)
MsgBox "The position of " & p & "th ""_"" is " & Ans
End Sub |
|
發表於 2019-10-19 18:24
| 