Hsieh

­ËµÛŪ³á?

1. Sub nn()
   
2. Dim Ar()
   
3. Open "E:\restr.txt" For Input As #1
   
4. Do While Not EOF(1)
   
5. Line Input #1, mystr
   
6. ReDim Preserve Ar(s)
   
7. Ar(s) = StrReverse(mystr)
   
8. s = s + 1
   
9. Loop
   
10. Close #1
    
11. ay = Split(StrReverse(Join(Ar, Chr(10))), Chr(10))
    
12. [A1].Resize(UBound(ay) + 1, 1) = Application.Transpose(ay)
    
13. End Sub

½Æ»s¥N½X