求修改VBA脚本：仅导出B列含"x"的行至TXT文件

没问题，我帮你搞定这个脚本的修改～你只需要替换原脚本里的判断条件，再优化下不必要的操作，就能实现需求了。

完整修改后的代码 #

Sub ExportXRows()
    'Declaring variables
    Dim sLine As String
    Dim sFName As String
    Dim intFNumber As Integer
    Dim lCounter As Long
    Dim lLastRow As Long
    Dim ws As Worksheet
    
    '直接绑定工作表对象，避免用Activate/Select（更高效稳定）
    Set ws = ThisWorkbook.Worksheets("mysheet")
    
    '找到A列最后一行有数据的行号
    lLastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '设置导出的TXT文件路径和名称（和当前工作簿同目录）
    sFName = ThisWorkbook.Path & "\txtfile.txt"
    
    '获取一个未被占用的文件编号
    intFNumber = FreeFile
    
    '创建/覆盖TXT文件
    Open sFName For Output As #intFNumber
    
    '从第2行开始循环（假设第1行是表头）
    For lCounter = 2 To lLastRow
        '检查当前行B列的值是否为"x"（区分大小写）
        '如果需要忽略大小写，改成：UCase(ws.Cells(lCounter, "B").Value) = "X"
        If ws.Cells(lCounter, "B").Value = "x" Then
            '提取当前行A列的数据
            sLine = ws.Cells(lCounter, "A").Value
            '写入到TXT文件
            Print #intFNumber, sLine
        End If
    Next lCounter
    
    '关闭文件
    Close #intFNumber
    
    '可选：弹出提示框告知导出完成
    MsgBox "导出完成！文件已保存到: " & sFName, vbInformation
End Sub

关键修改说明 #

• 替换判断条件：把原脚本里的?????换成ws.Cells(lCounter, "B").Value，这样就能精准检查当前循环行的B列值是否为"x"
• 移除冗余操作：删掉了Worksheets("mysheet").Activate和Range("A9").Select这类不必要的界面操作，直接用对象绑定工作表，让脚本运行更流畅
• 大小写兼容选项：如果你的数据里可能混有大写"X"，可以把判断条件改成UCase(ws.Cells(lCounter, "B").Value) = "X"，这样不管大小写都会被识别
• 添加完成提示：最后加了消息框，方便你快速确认导出结果

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 找到对应的代码模块，把原代码替换成上面的修改后代码
3. 运行宏ExportXRows，就能在当前工作簿所在目录生成目标TXT文件了

内容的提问来源于stack exchange，提问作者Jesper Kindt Larsen