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

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

76561197997162298
76561197997094193
76561197996891032
76561197996814030
76561197995825191
76561197995316081
76561197995286134

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

---

谢谢

将JitBit宏记录器与此脚本一起使用 无论如何，谢谢=）

---

享受吧

也许是这样的

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）的宏。

事实上，这是实现您要求的最佳方法！享受

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

---

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

似乎可以工作，但当运行它时，它只在一个长行中输出所有内容，不知道为什么。我也在使用Excel 2010，但我认为宏是可交叉兼容的

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