VB筛选数据后保存为指定名称TXT文件的实现求助

先帮你优化原代码（移除冗余的Select操作），并补充完整的保存与命名逻辑，以下是可直接运行的完整代码：

Sub SAVE()
    Dim WS1 As Worksheet, WS2 As Worksheet
    Dim Lastrow As Long, lastRowWS2 As Long
    Dim fileName As String, savePath As String
    Dim fileNum As Integer, i As Long
    
    ' 绑定工作表对象
    Set WS1 = Sheets("WORKING")
    Set WS2 = Sheets("FINAL")
    
    ' 清空FINAL表内容并重置筛选
    WS2.Cells.Delete
    WS1.AutoFilter.ShowAllData
    
    ' 筛选指定区域中第2列（C列）不等于"FIN"的行，若要筛选B列则改为Field:=1
    WS1.Range("B1:C50000").AutoFilter Field:=2, Criteria1:="<>FIN"
    
    ' 复制WORKING表B列可见行到FINAL表A列
    Lastrow = WS1.Cells(Rows.Count, "B").End(xlUp).Row
    WS1.Range("B1:B" & Lastrow).SpecialCells(xlCellTypeVisible).Copy WS2.Range("A1")
    
    ' --- 核心：保存与命名逻辑 ---
    ' 读取指定单元格的字符串作为文件名，替换为你实际的工作表和单元格位置
    fileName = Sheets("SETTINGS").Range("A1").Value
    
    ' 移除文件名中的Windows非法字符，避免保存失败
    fileName = Replace(Replace(Replace(Replace(Replace(fileName, "/", ""), "\", ""), ":", ""), "*", ""), "?", "")
    fileName = Replace(Replace(fileName, """", ""), "<", "")
    fileName = Replace(fileName, ">", "")
    fileName = Replace(fileName, "|", "")
    
    ' 设置保存路径：默认用当前工作簿所在文件夹，可改为固定路径如"C:\YourSaveFolder\"
    savePath = ThisWorkbook.Path & "\" & fileName & ".txt"
    
    ' 写入内容到TXT文件
    fileNum = FreeFile()
    Open savePath For Output As #fileNum
    
    lastRowWS2 = WS2.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To lastRowWS2
        Print #fileNum, WS2.Cells(i, "A").Value
    Next i
    
    Close #fileNum
    MsgBox "文件已保存：" & savePath, vbInformation
End Sub

关键注意点： #

• 文件名来源：代码中Sheets("SETTINGS").Range("A1").Value是读取指定单元格的字符串作为文件名，需将SETTINGS和A1替换为你实际存储文件名的工作表和单元格位置。
• 筛选字段确认：原代码中AutoFilter Field:=2是对B1:C50000区域的第2列（即C列）筛选，若你要筛选的是B列的"FIN"，需改为Field:=1。
• 路径自定义：如果需要固定保存路径，直接替换savePath的赋值语句，比如savePath = "D:\ExportFiles\" & fileName & ".txt"。

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