Open App.Path & "\data.dat" For Random As #1 Len = Len(cutter)
    lastrecord = LOF(1) / Len(cutter)

    For i = 1 To lastrecord
        Get #1, i, cutter
        For j = i + 1 To lastrecord
            Get #1, j, cutter
            If i = j Then
                For k = j + 1 To lastrecord
                    Get #1, k, cutter
                    Put #1, k - 1, cutter
                Next k
                lastrecord = lastrecord - 1
            End If
        Next j
    Next i

没人会吗

感觉用那个比较方便
我的程序哪错了，就是找不出来

还是没人帮啊，郁闷啊

知道了，i和j永远也不可能相等