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

Question

我有一行很长的文字，就像这样

76561197997162298
76561197997094193
76561197996891032
76561197996814030
76561197995825191
76561197995316081
76561197995286134

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

谢谢！

score 1 · Accepted Answer

用这个脚本使用 JitBit 宏记录器无论如何谢谢 =)

    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

享受！

score 1 · Accepted Answer

实际上，这是完成您所要求的最佳方法！享受

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

它被称为文本文件拆分器 2.0.4

score 0 · Accepted Answer

也许是这样的？

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) 派生的宏。

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

3 回答 3

Related

Reference