vba 当前文件夹所有excel 解除筛选后 合并到一起

您可以使用下面的 VBA 代码来合并当前文件夹中所有 Excel 文件：

Sub MergeExcelFiles()
    Dim path As String, filename As String, sheet As Worksheet, total As Integer
    
    path = ActiveWorkbook.Path & "\"
    filename = Dir(path & "*.xls*")
    
    Do While filename <> ""
        If filename <> ActiveWorkbook.Name Then
            Workbooks.Open Filename:=path & filename
            For Each sheet In ActiveWorkbook.Sheets
                sheet.Copy After:=ThisWorkbook.Sheets(1)
            Next sheet
            Workbooks(filename).Close
        End If
        filename = Dir
    Loop
    
    MsgBox "合并完成！", vbInformation
    
End Sub

请注意，在运行此代码之前，请确保您当前打开的 Excel 文件中没有任何筛选。此外，您还需要将此代码复制到一个新的 VBA 模块中，并将其保存为 .xlsm 文件。最后，双击运行此代码即可将当前文件夹中的所有 Excel 文件合并到一个文件中。