只舉一個當做範例，若要改多個，請自行套用迴圈
(n) 館長；管理者The director gave us work to do.
變成
(n) 館長；管理者 The director gave us work to do.
Sub test()
A = "(n) 館長；管理者The director gave us work to do."
For i = 1 To Len(A)
If Asc(Mid(A, i, 1)) >= 65 And Asc(Mid(A, i, 1)) <= 90 Then A = Left(A, i - 1) & " " & Mid(A, i): Exit For
Next
MsgBox A
End Sub
發表於 2018-10-23 12:18
| 