n7822123

回復 1# 自我感覺良好


只舉一個當做範例，若要改多個，請自行套用迴圈
(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

n7822123

回復 5# 自我感覺良好


謝謝版主s，Like還蠻好用的，的確這樣寫簡單多了!