添加多个excel工作表并对工作表的动态数量求和

Question

我有一个代码可以将多个 Excel 文件合并到一个工作簿中。但是，在我将工作表合并到另一个工作簿之后，那些与以前的工作簿有链接的工作表都被破坏了。 我还想在新工作簿的“总计”工作表中汇总特定字段中的所有工作表。

请帮忙。

Sub MergeExcelFiles()
    Dim fnameList, fnameCurFile As Variant
    Dim countFiles, countSheets As Integer
    Dim wksCurSheet As Worksheet
    Dim wbkCurBook, wbkSrcBook As Workbook

    fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)

    If (vbBoolean <> VarType(fnameList)) Then

        If (UBound(fnameList) > 0) Then
            countFiles = 0
            countSheets = 0

            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual

            Set wbkCurBook = ActiveWorkbook

            For Each fnameCurFile In fnameList
                countFiles = countFiles + 1

                Set wbkSrcBook = Workbooks.Open(filename:=fnameCurFile)

                For Each wksCurSheet In wbkSrcBook.Sheets
                    countSheets = countSheets + 1
                    wksCurSheet.Copy After:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
                Next

                wbkSrcBook.Close SaveChanges:=False

            Next

            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic

            MsgBox "Procesed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"
        End If

    Else
        MsgBox "No files selected", Title:="Merge Excel files"
    End If
End Sub

Answer 1

假设您所有的工作表都具有相同的结构并且您只想对它们进行总结，那么您可以在 Total 工作表中使用内置函数 SUM。

您可以设置范围，然后一次将公式添加到整个范围（我只有 3 张 1、2、3 和总共）。

Dim xRng as Range, n as integer

n = Thisworkbook.Sheets.Count
Set xRng = ThisWorkbook.Sheets(n).Range("A2:D2")

xRng.FormulaR1C1 = "=SUM('" & ThisWorkbook.sheets(1).name & "':'" & ThisWorkbook.Sheets(n-1).name & "'!RC)"

使用最后一行和最后一列或命名范围来使用动态范围也很好......

我希望这至少会有所帮助:)