GBKEE

¦^´_ 1# ilikeiceblue
¦p¦ó§ì¨ú¦h­ÓÀɮ׳sÄò¶×¤J,¥i·j°Q½×°Ï´M¬Ý¬Ý.

1. Sub Ex_¶×¤J¤å¦rÀÉ()
   
2. Dim Fs As Object, d, s, i As Integer, ii As Integer
   
3.     txt = "d:\TEST\TEST.TXT"                                    '¤å¦rÀɥؿý
   
4.     Set Fs = CreateObject("Scripting.FileSystemObject").OpenTextFile(txt, 1)
   
5.     d = Split(Fs.readall, Chr(10))                                  'Chr(10) ¤À³Î¬°°}¦C
   
6.     Fs.Close                                                        'Ãö³¬¤å¦rÀÉ
   
7.      With ActiveSheet
   
8.         .Cells.Clear                                                '²M°£©Ò¦³¸ê®Æ
   
9.         For i = 1 To UBound(d)                                      '°}¦Cªº²Ä2¤¸¯À¶}©l
   
10.             If Len(d(i)) = 0 Or i = UBound(d) Then                  'Len(d(i)) = 0->ªÅ¥Õ¦C(­nªº¬O¤W¤@­Ó¤¸¯À)
    
11.                 s = d(IIf(i < UBound(d), i - 1, i))                 'i = UBound(d) ->°}¦Cªº³Ì«á¤¸¯À
    
12.                 s = Split(s, "  ")                                  '"  " ¤À³Î¬°°}¦C
    
13.                 '61566.1459848279  36804.0605  7070  62             ¦¹¦r¦ê¥H¨âªÅ®æ¤À¹j
    
14.                 ii = Application.CountA(.[a:a])                     '­pºâAÄ檺¸ê®Æ¼Æ
    
15.                 ii = IIf(ii = 0, i, ii + 1)                         '¨S¦³=²Ä1¦C,¦³¸ê®Æ¶·©¹¤U¤@¦C
    
16.                 .Cells(ii, "a").Resize(1, UBound(s) + 1) = s
    
17.             End If
    
18.         Next
    
19.     End With
    
20. End Sub

½Æ»s¥N½X