��^�C�� �U�@�D�D �W�@�D�D �o��

# �p��bExcel�����J�j�g�r�����e���Ů�H

##### �ӥD����
50 �r�`�H��
������۩w�q Discuz! �N�X

 �����̫�� n7822123 �� 2018-10-23 12:32 �s�� �^�_ 1# �ۧڷPı�}�n �u�|�@�ӷ����d�ҡA�Y�n��h�ӡA�Цۦ�M�ΰj�� (n) �]���F�޲z��The director gave us work to do. �ܦ� (n) �]���F�޲z�� The director gave us work to do. Sub test() A = "(n) �]���F�޲z��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
�{���O�̻ݨD�g���A�ݨD���F���M��
�Ϊ̨S���W�Ǫ���A�R����U
 �^�_ 2# n7822123 Option Explicit Sub Ex()     Dim A As Range, B As Variant, i As Integer     For Each A In Range("A1", Range("A1").End(xlDown))  'A1 ���U��̫�@�����         B = ""         For i = 1 To Len(A)             If Mid(A, i, 1) Like "[A-Z]" Then B = IIf(B = "", Mid(A, i, 1), B & "," & Mid(A, i, 1))             '���j�g���r�� �ɤJ�ܼ�         Next         If B <> "" Then        '�����j�g���r��             B = Split(B, ",")  '���j�g�r�����}�C             For i = 0 To UBound(B)                 A = Replace(A, B(i), " " & B(i))  '�[�J�Ů�             Next             Do While InStr(A, Space(2))         '�]�t����檺�ťզr��                 A = Replace(A, Space(2), Space(1))  '���� ��檺�ťզr�� ���@�檺�ťզr��             Loop         End If     Next End Sub�ƻs�N�X
�P������......(�b�»��a�ڰQ�װ�.�Τ߾ǲ߷|���i�B��)
���귽�L��,�ᴩ����,  �@��1�����٧U,�H�H����O.
 Sub TEST_01() Dim xR As Range, T\$, C% For Each xR In Range([A1], [A65536].End(xlUp))     For i = 2 To Len(xR)         T = Mid(xR, i, 1)         If T Like "[A-Z]" And Mid(xR, i - 1, 1) <> " " Then C = 1: Exit For     Next i     xR(1, 2) = Replace(xR, T, " " & T, 1, C):  C = 0 Next End Sub
EXCEL�ѦҸ�ơG
http://blog.xuite.net/smile1000mile/blog
 �Ӧn�ΤF�K �u���O�ϭW���������� �ӷP�¤F�� https://drive.google.com/file/d/1BV4Rm3Zxx_fWvka9OEGhb0eEgciRGZ9i/view?usp=sharing
50 �r�`�H��
������۩w�q Discuz! �N�X
 �^�_ 5# �ۧڷPı�}�n ���ª��Ds�ALike���Z�n�Ϊ��A���T�o�˼g²��h�F!
�{���O�̻ݨD�g���A�ݨD���F���M��
�Ϊ̨S���W�Ǫ���A�R����U
 �^�_ 1# �ۧڷPı�}�n Sub Test()     Dim reg As Object     Set reg = CreateObject("vbscript.regexp")     reg.Pattern = "([A-Z])"     s1 = "(n) �]���F�޲z��The director gave us work to do."     s2 = reg.Replace(s1, " \$1")     MsgBox s2 End Sub�ƻs�N�X
���F���M�B�D�N�����T�B�S���ɮ׮榡�B�S���Q�װ��D���A��~~~~~~�H�W�R����U�C
�R��ۦb : �ѥ\���ѹL�A�ѫ褣�Ѯ��C
 ��^�C�� �U�@�D�D �W�@�D�D