Hsieh

¦^´_ 1# yc1031 ¨S¦³§Þ¥©ªº¤èªk

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary") '«Ø¥ß©Ó±µ®e¾¹
   
3. Open "stat_descriptions.txt" For Input As #1 '¶}±Ò¤å¦rÀÉ
   
4. Do While Not EOF(1)
   
5.    i = i + 1
   
6.    Input #1, mystr '±N¤å¦rŪ¤JÅܼÆ
   
7.    d.Add i, mystr '±N¤å¦r¼g¤J®e¾¹
   
8.    If mystr = "lang ""Traditional Chinese""" Then
   
9.    j = i
   
10.      Do Until IsNumeric(d(j)) '§PÂ_¬O§_¬°¼Æ­È
    
11.      d.Remove j '²¾°£
    
12.      j = j - 1
    
13.      Loop
    
14.    End If
    
15. Loop
    
16. d.Remove j
    
17. Close #1
    
18. Sheets(2).[A1].Resize(d.Count, 1) = Application.Transpose(d.items) '¼g¤J¤u§@ªí
    
19. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# yc1031
ª½±µ¥ÎEXCEL¶}±Ò¤å¦rÀÉ´N¤£·|¶Ã½X

1. Sub ex1()
   
2. Dim A As Range
   
3. fs = "D:\test\stat_descriptions.txt" '¤å¦rÀÉ
   
4. With Workbooks.Open(fs) '¥HEXCEL¶}±Ò¤å¦rÀÉ
   
5. Application.ScreenUpdating = False
   
6.    With .Sheets(1)
   
7.    Set A = .UsedRange.Find("lang ""Traditional Chinese""", lookat:=xlWhole) '´M§ä¦r¦ê
   
8.    Do Until A Is Nothing 'ª½¨ì§ä¤£¨ì¦r¦ê
   
9.       r = A.Row
   
10.       Do Until IsNumeric(.Cells(r, 2)) And .Cells(r, 2) <> "" '©¹¤W§ä¼Æ­È
    
11.         .Rows(r).Delete '§R°£¦C
    
12.         r = r - 1
    
13.       Loop
    
14.       .Rows(r).Delete
    
15.    Set A = .UsedRange.Find("lang ""Traditional Chinese""", lookat:=xlWhole)
    
16.    Loop
    
17.    End With
    
18. End With
    
19. Application.ScreenUpdating = True
    
20. End Su

½Æ»s¥N½X