excel - 複数のワークシートを 1 つに結合する

Question

複数のワークシートを 1 つのサマリー シートにマージしようとしています。
各ワークシートには、「テーブル番号」などの名前が付いていTable 1ますTable 2。各シートのレイアウトは同じです。データ範囲は列A1 : N13です。
この機能は動作しません: =SUM('Table 1':'Table 25'!$A$1:$N$13). このデータを統合
するにはどうすればよいですか?VBA

Answer 1

これは単純化された例です。

Option Explicit

Sub amalgamateData()

'initialise result variable
Dim myResult As Double
myResult = 0

'loop through sheets to get the sum
Dim wks As Excel.Worksheet  'loop control variable
For Each wks In Excel.ThisWorkbook.Worksheets
    If Left(wks.Name, 5) = "Table" Then ' only the "Table" sheets
        With wks
            Dim rngTarget As Range
            myResult = myResult + Excel.Application.WorksheetFunction.Sum(.Range("A1:N13"))
        End With
    End If
Next

'add result to sheet "Result"
Excel.ThisWorkbook.Sheets("Result").Range("A1") = myResult

End Sub

私の出発点はこのSO投稿でした：複数のシートからのデータをマージする方法

Siddharth saudとして-ここにあなたのための参照がたくさんありますので、ここにあなたのための検索があります...画面の右上のボックスにあるものをチェックしてください