Question

我有很长的文字，数千长，就像这样

76561197997162298
76561197997094193
76561197996891032
76561197996814030
76561197995825191
76561197995316081
76561197995286134

我想要一个简单的方法将它分成100行长输出的行，我可以导入到excel中，除非excel本身可以做到，尽管我无法找到方法。只要我不需要进行任何编码，就可以使用我可以在Windows PC上运行的任何语言来完成。如果有一些程序可以做到这一点，我也可以使用它。否则我将不得不使用宏录制器设计一些黑客工作

谢谢！

Answer 1

使用JitBit Macro Recorder和这个脚本不管怎样，谢谢=）

    WAIT FOR USER : 192 : 2 : 0 : 0
Keyboard : ShiftLeft : KeyDown
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : Down : KeyDown
DELAY : 10
Keyboard : Down : KeyUp
DELAY : 10
Keyboard : ShiftLeft : KeyUp
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : ControlLeft : KeyDown
DELAY : 10
Keyboard : X : KeyDown
DELAY : 10
Keyboard : X : KeyUp

享受！

Answer 2

实际上，这是做你要求的最好的方法！享受

http://www.softpedia.com/get/System/File-Management/Text-File-Splitter.shtml

它叫做Text File Splitter 2.0.4

Answer 3

也许是这样的？

Option Explicit

Sub LongRowImport()

        With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;C:\pathname\long_text_row.txt", _
            Destination:=Range("A1"))
            .Name = "long_text_row"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 775
            .TextFileStartRow = 1
            .TextFileParseType = xlFixedWidth
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) 
            .TextFileFixedColumnWidths = Array(100, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 1100)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
End Sub

这是一个源自数据的宏 - 导入外部数据 - 导入数据（Excel 2003）。

将长行的文本/数字拆分为多行特定长度

3 个答案: