請再測試看看,謝謝
Sub test()
Dim Arr, a, T, i&, x, j%
Arr = Range([A1], [A65536].End(3).Offset(1, 0))
For i = 1 To UBound(Arr) - 1
a = Split(Trim(Arr(i, 1)), Chr(10))
For x = 0 To UBound(a)
For j = 2 To Len(a(x))
T = UCase(Mid(a(x), j))
If Asc(T) > 64 And Asc(T) < 123 Then
If Cells(i, 2) = "" Then
Cells(i, 2) = Replace(a(x), T, " " & T)
Else
Cells(i, 2) = Cells(i, 2) & Chr(10) & Replace(a(x), T, " " & T)
End If
End If
Next
Next
Next
End Sub