一个文本的编辑问题~~~~~~~~ 续

[housebad]

有一啊记事本文件（一）
a
b
c
d
f
g
t
1
2
想生 成的文件 （二）
2
1
t
g
f
d
c
b
a
就是想让一文件全部倒着进行排序，请高手再次帮忙谢谢

[宋翔]

Sub Sort()
    Dim sFileName As String
    sFileName = "C:\abc.txt"
    Dim iFileNum As Integer
    iFileNum = FreeFile
    
    Dim data
    Dim irow As Integer
    irow = 0
    Open sFileName For Input As #iFileNum
    Cells.Clear
    Do Until EOF(iFileNum)
        Line Input #iFileNum, data
        Cells(1, 1).Offset(irow, 0) = data
        irow = irow + 1
    Loop
    Close #iFileNum
    
    Dim iFinalRow As Integer
    iFinalRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
    
    Dim vArray As Variant
    vArray = WorksheetFunction.Transpose(Range("A1:A" & iFinalRow))
    
    Dim i As Integer
    For irow = UBound(vArray) To LBound(vArray) Step -1
        i = i + 1
        Cells(i, 2) = vArray(irow)
    Next irow
    
    Open sFileName For Output As #iFileNum
    irow = 1
    Do
        data = Cells(irow, 2)
        Print #iFileNum, data
        irow = irow + 1
    Loop Until IsEmpty(Cells(irow, 1))
    Close #iFileNum
End Sub

[tangchao5220]

用excel打开这个记事本文件
然后这么做：
1、在A列前插入辅助列，这时你原来的数据成了B列
2、在A列对应你第一个数据的位置，如A2,填入公式=ROW(B2)，把填有公式的A2,向下拖拉，得到数据对应的行号。
3、选择A2和你数据的最末行后，点击排序，选择以A列的降序排序就可以了

[housebad]

[Quote=引用 1 楼 pfsx79 的回复:]
VB code
Sub Sort()
Dim sFileName As String
sFileName = "C:\abc.txt"
Dim iFileNum As Integer
iFileNum = FreeFile

Dim data
Dim irow As Integer
irow = 0
Ope……
[/Quote]

你好，不知道如果执行，

[宋翔]

[Quote=引用 3 楼 housebad 的回复:]

引用 1 楼 pfsx79 的回复:
VB code
Sub Sort()
Dim sFileName As String
sFileName = "C:\abc.txt"
Dim iFileNum As Integer
iFileNum = FreeFile

Dim data
Dim irow As Integer
irow = 0
Ope……


你好，不知道如……
[/Quote]

启动一个Excel，按Alt+F11组合键，在左侧列表中插入一个模块，然后将代码复制进去。将要排序的文本文件放到C盘跟目录下，然后执行即可。

[宋翔]

还要将sFileName = "C:\abc.txt"这句中的abc.txt改为你要排序的文本文件名称

[laoyebin]

导入EXCEL，编个序号，再倒序，再另存TXT