基于Excel C、E列条件的VBA批量写入TXT脚本开发问询

先给你优化一下原代码的结构（原来多次循环整表效率太低啦），同时实现写入TXT的功能。下面是完整的可运行脚本，我会逐部分解释：

完整VBA代码 #

Sub LoopRange_WriteToTXT()
    Dim myFile As String
    Dim lastRow As Long
    Dim i As Integer
    Dim colCValue As String, colEValue As String
    Dim fileNum As Integer
    
    ' 获取最后一行（避免只有表头时出错）
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    If lastRow < 2 Then
        MsgBox "没有可处理的数据行！", vbExclamation
        Exit Sub
    End If
    
    ' 让用户选择保存TXT的路径和文件名
    myFile = Application.GetSaveAsFilename( _
        FileFilter:="文本文件 (*.txt), *.txt", _
        Title:="选择保存结果的TXT文件")
    
    If myFile = "False" Then Exit Sub ' 用户取消选择
    
    ' 获取可用的文件号
    fileNum = FreeFile()
    
    ' 打开TXT文件准备写入（覆盖已有内容，若要追加改为For Append）
    Open myFile For Output As #fileNum
    
    ' 只循环一次所有数据行，处理所有条件
    For i = 2 To lastRow
        colCValue = Trim(Range("C" & i).Value) ' 去除首尾空格避免判断出错
        colEValue = Trim(Range("E" & i).Value)
        
        ' 根据C列和E列的组合执行逻辑并写入TXT
        Select Case True
            Case colEValue = "South" And colCValue = "Yes"
                ' 这里写你的逻辑，比如写入该行的A列内容到TXT
                Print #fileNum, "South-Yes组合：" & Range("A" & i).Value
            Case colEValue = "South" And colCValue = "No"
                Print #fileNum, "South-No组合：" & Range("B" & i).Value
            Case colEValue = "West" And colCValue = "Yes"
                Print #fileNum, "West-Yes组合：" & Range("D" & i).Value
            Case colEValue = "West" And colCValue = "No"
                Print #fileNum, "West-No组合：" & Range("F" & i).Value
            ' 如果还有其他组合，可以继续添加Case
            Case Else
                Print #fileNum, "未匹配的组合（行" & i & "）：C=" & colCValue & ", E=" & colEValue
        End Select
    Next i
    
    ' 关闭文件
    Close #fileNum
    
    MsgBox "结果已成功写入TXT文件：" & vbCrLf & myFile, vbInformation
End Sub

关键优化和说明 #

• 循环效率优化：原来的代码多次遍历整个数据行，现在只循环一次，在循环内用Select Case处理所有条件，大幅提升效率（尤其是数据接近1000行时）。
• 可靠获取最后一行：用Cells(Rows.Count, 1).End(xlUp).Row代替原代码的Cells(1,1).End(xlDown).Row，避免只有表头时出错。
• 用户友好的文件选择：通过Application.GetSaveAsFilename让用户自己选择TXT的保存位置，比硬编码路径更灵活。
• 避免空格干扰：用Trim()处理C列和E列的取值，防止单元格首尾有空格导致条件判断失败。
• 写入控制：用Print #fileNum, ...语句写入内容到TXT，每一条内容会自动换行；如果需要覆盖文件用For Output，如果需要追加到现有文件改为For Append。
• 错误提示：加入了无数据时的提示，以及用户取消文件选择时的退出逻辑。

你只需要把每个Case里的写入内容替换成你实际需要的逻辑就行——比如提取特定列的值、拼接自定义文本等。

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