¦p¦ó¦bExcel¤¤´¡¤J¤j¼g¦r¥À¤§«eªºªÅ®æ¡H
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 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 |
|
|
|
|
|
|