将多个工作簿中的行单元格值与多个工作表相加并按列粘贴

Question

这是问题的第 2 部分： Sum cell values from multiple workbooks with multiple worksheets - Macro

总结一下我的要求： 我有50本练习册。每个都有 3 个工作表（总共 6 个。其他 3 个无关紧要）。只有第一行有值（比如 sheet1、2 和 3 中从单元格 A1 到 N1 的 10 个值）。我想将每个工作表的第一行值与每个工作簿分开求和，并将其粘贴到工作表 1 的宏工作簿中的单个列中。 （所以我会得到一个包含 30 个值的最后一列）。

我尝试继续上一个问题的代码。但我无法这样做。唯一的修改是将其按列粘贴到单个工作表中（D 列）。任何帮助将不胜感激。

Answer 1

试试这个：

Sub SUM_Workbooks()
    Dim FileNameXls, f
    Dim wb As Workbook, i As Integer

    FileNameXls = Application.GetOpenFilename(filefilter:="Excel Files, *.xls*", MultiSelect:=True)

    If Not IsArray(FileNameXls) Then Exit Sub

    Application.ScreenUpdating = False
    'clear previous values
    ThisWorkbook.Sheets("Sheet1").Range("A1:A30").Clear
    For Each f In FileNameXls
        Set wb = Workbooks.Open(f)
        For i = 1 To 3
            wb.Worksheets(i).Range("A1:N1").Copy
            'change Sheet1 to suit
            ThisWorkbook.Sheets("Sheet1").Range("A" & 1 + 10 * (i - 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, Transpose:=True
        Next i
        wb.Close SaveChanges:=False
    Next f

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub