vba 合并多个名为成员账户明细的execl文件

您可以使用VBA编写一个宏来合并多个名为"成员账户明细"的Excel文件。以下是一个简单的VBA代码示例，可以将多个Excel文件中的数据合并到一个文件中：

Sub MergeExcelFiles()
    
    Dim folderPath As String
    Dim selectedFiles() As Variant
    Dim i As Integer
    Dim j As Integer
    Dim nextRow As Long
    Dim cell As Range
    Dim wbk As Workbook
    Dim mainWorkBook As Workbook
    
    '选择文件夹
    folderPath = Application.GetOpenFilename("Excel files (*.xls*),*.xls*", , "Select Excel files", , True)
    
    '选择文件
    selectedFiles = Application.GetOpenFilename("Excel files (*.xls*),*.xls*", MultiSelect:=True)
    
    Set mainWorkBook = ActiveWorkbook
    nextRow = 1
    
    '循环所有选择的文件
    For i = LBound(selectedFiles) To UBound(selectedFiles)
        '打开文件
        Set wbk = Workbooks.Open(selectedFiles(i))
        
        '循环所有工作表
        For j = 1 To wbk.Worksheets.Count
            '复制数据
            wbk.Worksheets(j).UsedRange.Copy mainWorkBook.Worksheets(1).Cells(nextRow, 1)
            nextRow = mainWorkBook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
        Next j
        
        '关闭文件
        wbk.Close False
        
    Next i
    
    '清除剪贴板
    Application.CutCopyMode = False
    
    '提示合并完成
    MsgBox "合并完成！"
    
End Sub

此宏将提示您选择要合并的Excel文件，然后将所有文件中的数据合并为一个文件。请注意，此代码示例仅将第一个工作表中的数据合并到主工作簿中的第一个工作表中。如果要将其他工作表的数据合并到其他工作表中，请修改代码以适应您的需求。