将特殊垂直堆叠布局平面文件导入Excel并拆分记录求助

我明白你现在的困境——那种前置行数不固定、垂直堆叠的平面文件确实棘手，不过用VBA加正则表达式完全能搞定，我给你写个实用的脚本，一步步来：

核心思路是：先把整个文件读进内存，用正则把所有以PL_ID%开头的数据块拆分开，再把每个数据块里的多行内容合并成单条扁平记录（你可以按需调整分隔符）。

完整VBA脚本 #

Sub SplitAndFlattenPLIDRecords()
    Dim inputPath As String, outputPath As String
    Dim fileContent As String, allMatches As Object, match As Object
    Dim flattenedRecord As String, outputText As String
    
    ' 替换成你的实际文件路径
    inputPath = "C:\YourInputFile.txt"
    outputPath = "C:\YourOutputFile.txt"
    
    ' 1. 一次性读取整个文件内容（避免逐行读取的麻烦）
    Open inputPath For Binary As #1
    fileContent = Space$(LOF(1))
    Get #1, , fileContent
    Close #1
    
    ' 2. 用正则匹配所有PL_ID%开头的数据块
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    With regex
        .Global = True ' 开启全局匹配，抓所有数据块
        .MultiLine = True
        ' 关键正则：匹配从PL_ID%开始，到下一个PL_ID%或文件结尾的所有内容
        .Pattern = "(PL_ID%[\s\S]*?)(?=PL_ID%|$)"
    End With
    Set allMatches = regex.Execute(fileContent)
    
    ' 3. 把每个垂直数据块转成扁平记录
    outputText = ""
    For Each match In allMatches
        ' 把数据块里的换行替换成制表符（可改成逗号/分号等分隔符）
        flattenedRecord = Replace(match.Value, vbCrLf, vbTab)
        ' 清理多余的重复分隔符（可选，根据你的数据情况调整）
        flattenedRecord = Trim(Replace(flattenedRecord, vbTab & vbTab, vbTab))
        ' 每条扁平记录占一行
        outputText = outputText & flattenedRecord & vbCrLf
    Next match
    
    ' 4. 写入输出文件
    Open outputPath For Output As #2
    Print #2, outputText
    Close #2
    
    MsgBox "处理完成！输出文件已保存到：" & outputPath, vbInformation
End Sub

关键细节解释 #

• 正则模式：(PL_ID%[\s\S]*?)(?=PL_ID%|$)
[\s\S]匹配任意字符（包括换行），*?是非贪婪模式，确保每个匹配只到下一个PL_ID%就停止，不会把所有内容当成一个块。
• 分隔符调整：如果不需要制表符，把代码里的vbTab改成","（逗号分隔）或其他你需要的符号即可。
• 文件读取方式：用二进制模式读取能避免编码问题，适配各种文本文件。

使用步骤 #

1. 打开Excel，按下Alt+F11打开VBA编辑器；
2. 插入一个新模块，把上面的代码粘贴进去；
3. 修改inputPath和outputPath为你实际的文件路径；
4. 运行宏，处理完成后会弹出提示。

如果你的数据块里有特定字段需要精准提取（不是简单合并所有行），可以告诉我更多细节，我再调整脚本。

内容的提问来源于stack exchange，提问作者JackalSnacks