Excel 365宏文件多列可见数据复制至TXT的VBA代码需求

需求回顾 #

• 源文件：11MB带宏Excel 365文件，已通过B、Q列完成数据筛选
• 导出规则：
  • 仅复制可见行（不含表头）
  • 列映射：I列→TXT的A列，G列→TXT的B列，T列→TXT的C、D列
  • 仅导出到G列最后一行对应的行范围
  • TXT的E列统一填充数字5
  • 操作前删除旧的0_import.txt以清除历史数据

优化后的完整VBA代码 #

Sub ExportFilteredRowsToTXT()
    ' 快捷键：Ctrl+Shift+S
    Dim srcWs As Worksheet
    Dim lastRow As Long
    Dim visibleRows As Range
    Dim txtPath As String
    Dim txtWs As Worksheet
    Dim newWb As Workbook
    
    ' 1. 配置路径和源工作表
    Set srcWs = ThisWorkbook.Worksheets("Sheet1")
    txtPath = "C:\Users\user_name\Documents\0_import.txt"
    
    ' 2. 删除旧文件（如果存在）
    On Error Resume Next
    Kill txtPath
    On Error GoTo 0
    
    ' 3. 获取G列最后一行的行号（仅考虑可见行的范围）
    lastRow = srcWs.Range("G" & srcWs.Rows.Count).End(xlUp).Row
    
    ' 4. 定位源数据的可见行（跳过表头，从第2行开始）
    On Error Resume Next
    Set visibleRows = srcWs.Range("G2:I2,T2").Resize(lastRow - 1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If visibleRows Is Nothing Then
        MsgBox "没有可见数据可以导出！", vbExclamation
        Exit Sub
    End If
    
    ' 5. 创建新工作簿用于生成TXT
    Set newWb = Workbooks.Add(xlWBATWorksheet)
    Set txtWs = newWb.Worksheets(1)
    
    ' 6. 按映射规则复制数据
    ' I列 → TXT的A列
    srcWs.Range("I2:I" & lastRow).SpecialCells(xlCellTypeVisible).Copy txtWs.Range("A1")
    ' G列 → TXT的B列
    srcWs.Range("G2:G" & lastRow).SpecialCells(xlCellTypeVisible).Copy txtWs.Range("B1")
    ' T列 → TXT的C、D列
    srcWs.Range("T2:T" & lastRow).SpecialCells(xlCellTypeVisible).Copy txtWs.Range("C1")
    txtWs.Range("C:C").Copy txtWs.Range("D:D")
    
    ' 7. 填充E列为数字5
    txtWs.Range("E1:E" & txtWs.Range("A" & txtWs.Rows.Count).End(xlUp).Row).Value = 5
    
    ' 8. 保存为TXT文件并关闭
    newWb.SaveAs Filename:=txtPath, FileFormat:=xlTextWindows
    newWb.Close SaveChanges:=False
    
    MsgBox "数据导出完成！", vbInformation
End Sub

关键改动说明 #

• 删除旧文件：用Kill语句提前清理历史文件，加入错误处理防止文件不存在时报错
• 跳过表头：直接从第2行开始选取数据，无需后续删除表头行，简化流程
• 高效定位可见行：避免使用Select/Activate，直接通过Range和SpecialCells操作，提升大文件（11MB）的运行效率
• 严格按映射复制：分别处理每一列的复制逻辑，确保对应关系准确，T列同时复制到C、D列
• 批量填充固定值：一次性给E列所有数据行填充5，比逐行操作更高效
• 直接生成TXT：新建空白工作簿处理数据后直接保存为TXT，避免打开旧TXT文件的格式问题

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