如何用VBA将Excel数据按位置筛选导出条码至多个记事本

你的需求是按Excel中A列（位置）分组，将每组对应的C列（条码）导出为独立文本文件，文件名用B列的内容，保存到指定路径。下面提供三种可行方案：

方法1：VBA宏（高效批量处理） #

适合数据量较大的场景，一键完成所有导出：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击当前工作簿 → 插入 → 模块
3. 将以下代码粘贴到模块窗口，修改代码中的指定路径为你实际要保存的文件夹路径（比如"D:\条码导出\"）：

Sub 批量导出条码()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentLocation As String
    Dim currentFileName As String
    Dim barcodeContent As String
    Dim savePath As String
    
    ' 设置保存路径，末尾必须加反斜杠
    savePath = "D:\条码导出\"
    ' 创建文件夹（如果不存在）
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    currentLocation = ws.Range("A2").Value
    currentFileName = ws.Range("B2").Value
    barcodeContent = ws.Range("C2").Value & vbCrLf
    
    For i = 3 To lastRow
        ' 如果当前行位置和上一个相同，追加条码
        If ws.Range("A" & i).Value = currentLocation Then
            barcodeContent = barcodeContent & ws.Range("C" & i).Value & vbCrLf
        Else
            ' 导出上一组的条码到文本文件
            Open savePath & currentFileName & ".txt" For Output As #1
            Print #1, barcodeContent
            Close #1
            
            ' 重置当前组信息
            currentLocation = ws.Range("A" & i).Value
            currentFileName = ws.Range("B" & i).Value
            barcodeContent = ws.Range("C" & i).Value & vbCrLf
        End If
    Next i
    
    ' 导出最后一组数据
    Open savePath & currentFileName & ".txt" For Output As #1
    Print #1, barcodeContent
    Close #1
    
    MsgBox "所有条码文件已导出完成！"
End Sub

4. 按下F5运行宏，或者回到Excel界面，点击开发工具 → 宏 → 选择批量导出条码执行

方法2：Power Query（无需代码） #

适合不熟悉VBA的用户，可视化操作完成：

1. 选中数据区域（包括表头） → 数据 → 从表格/区域（勾选"我的表格有标题"）
2. 在Power Query编辑器中，点击转换 → 分组依据：
   • 分组依据列选择LocationName
   • 新列名输入条码列表，操作选择所有行
3. 添加自定义列：点击添加列 → 自定义列，公式输入：

   Text.Combine([条码列表][Barcode], "#(lf)")
   

4. 删除多余列，只保留FileRename和自定义列（重命名为条码内容）
5. 点击主页 → 关闭并上载至 → 选择仅创建连接，勾选加载到工作表时启用刷新
6. 右键点击Power Query连接 → 加载到 → 选择表加载到新工作表
7. 选中新工作表的FileRename和条码内容列，手动复制每组的条码内容，粘贴到记事本，用对应FileRename命名保存到指定路径

方法3：手动操作（小数据量） #

如果数据行数不多，手动操作更直接：

• 选中A列表头 → 数据 → 筛选
• 点击A列筛选按钮，选择第一个位置（比如Box-01）
• 选中C列所有可见的条码数据，复制
• 打开记事本，粘贴内容，点击文件 → 保存，选择指定路径，文件名输入B列对应的FileRename内容（比如Box-01 108），保存类型选文本文档(*.txt)
• 重复以上步骤，依次筛选每个位置完成导出

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