GBKEE

¦^´_ 1# ten999
¶Ç¤WÀɮ׬ݬÝ

GBKEE

¦^´_ 4# ten999
~01/04??/18~03/2003/11 ¤Ö¤F??
¸Õ¸Õ¬Ý

   

1. Option Explicit
   
2. Sub EX()
   
3.     Dim A As String, I As Integer, S As Variant
   
4.     Dim W As String
   
5.     A = Trim([A1])    '²M°£¦r¦ê«e«á¦³ªÅ¥Õªº¦r¦ê
   
6.                       '"  AB C DE    " -> "AB C DE"
   
7.     W = 11            '¤@²Õ©T©wÄæ¼e¬°11¦r¤¸
   
8.     For I = 1 To Len(A) Step W
   
9.         S = Split(Mid(A, I, W), Mid(A, I + 5, 1)) '«ü©wªº¦r¦ê->Mid(A, I + 5, 1))="~"
   
10.         'Split :¶Ç¦^¥H«ü©wªº¦r¦ê¤À³Îªº¤@ºû°}¦C
    
11.         Cells(Int(I / W) + 2, 1) = S(0)   '°}¦C²Ä¤@­Ó¤¸¯À­È
    
12.         Cells(Int(I / W) + 2, 2) = S(1)   '°}¦C²Ä¤G­Ó¤¸¯À­È
    
13.     Next
    
14. End Sub

½Æ»s¥N½X