如何修改Excel宏实现将工作表E、F列复制至记事本？

没问题，我帮你调整这个宏，让它只导出E列和F列的内容到文本文件里。

你原来的代码是遍历整个工作表的所有行和列，所以会导出全部内容。我们只需要把列的范围限定为E（第5列）和F（第6列），同时优化一下最后一行的获取逻辑（避免某一列数据较短导致的空行），就能实现需求了。

下面是修改后的完整代码：

Sub exceltoText()
 Dim FileName, sLine, Deliminator As String
 Dim LastRow, FileNumber As Integer
 ' 定义要导出的列：E(5)和F(6)
 Dim targetColumns As Variant
 targetColumns = Array(5, 6)
 
 FileName = "C:\Users\Test\Desktop\New\Test.txt"
 Deliminator = "|"
 
 ' 获取E列和F列中最大的最后一行，避免空行
 LastRow = Application.Max( _
     ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row, _
     ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row _
 )
 
 FileNumber = FreeFile
 Open FileName For Output As FileNumber
 
 For i = 1 To LastRow
     sLine = ""
     ' 遍历目标列：E和F
     For Each col In targetColumns
         ' 如果是最后一列，不加分隔符；否则添加分隔符
         If col = targetColumns(UBound(targetColumns)) Then
             sLine = sLine & Cells(i, col).Value
         Else
             sLine = sLine & Cells(i, col).Value & Deliminator
         End If
     Next col
     Print #FileNumber, sLine
 Next i
 
 Close #FileNumber
 MsgBox "Text File complete."
End Sub

关键修改说明： #

• 新增了targetColumns数组，明确指定要导出的列（5对应E列，6对应F列），后续如果要调整导出列，直接修改数组即可
• 调整了LastRow的计算方式，取E列和F列中数据最多的那一行的行号，避免导出不必要的空行
• 把原来遍历所有列的循环改成遍历targetColumns数组，只处理我们需要的列
• 优化了sLine的初始化位置，放在外层循环开头，逻辑更清晰

这样修改后，运行宏就只会把E列和F列的内容导出到指定的文本文件里啦。

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