VBAを使い、複数シートにまたがって集計する方法が知りたい

ExcelのVBAについて質問です。

下記のコードのaを用いて、順番にsumifをしたいと考えています。
'''
Sub total_aggregate()

Dim i As Long
Dim a As String
Dim row As Long

For row = 2 To 6

a = Sheets(1).Cells(row, 1)

MsgBox (a)

For i = 2 To Worksheets.Count

Worksheets(i).Select
total_price = total_price + WorksheetFunction.SumIf(Range("A：A"), a, Range("B:B"))

MsgBox (total_price)

End Sub
'''
この状態ですと、当たり前ですがaに最後に入った配列を元にした計算結果が表示されます。
これを下記のように合体させてみたのですが、上手く計算されません。
どうすれば解決できますでしょうか。
宜しくお願い致します。
'''
For row = 2 To 6

a = Sheets(1).Cells(row, 1)

MsgBox (a)

For i = 2 To Worksheets.Count

Worksheets(i).Select
total_price = total_price + WorksheetFunction.SumIf(Range("A：A"), a, Range("B:B"))

MsgBox (total_price)

End Sub
'''

hatena19

2020/05/30 07:48

どのようにうまくいかないのでしょうか。また、下記のうち、どの結果がほしいのでしょうか。 Sheets(1) の A2:A6 の条件に合致する Worksheets(2)以降のすべてのデータの合計(１個の合計値) Sheets(1) の A2:A6 の条件毎の Worksheets(2)以降の合計(5個の合計値) Sheets(1) の A2:A6 の条件に合致する Worksheets(2)以降のシートごとの合計(シート数-1の合計値)

Shiwa

2020/05/30 10:46 編集

ありがとうございます。 Sheets(1) の A2:A6 の条件毎の Worksheets(2)以降の合計(5個の合計値)です。下記をそれぞれ取り出したいです。 Sheets(1)のA2の条件に合致するWorksheets(2)以降のデータの合計 Sheets(1)のA3の条件に合致するWorksheets(2)以降のデータの合計 Sheets(1)のA4の条件に合致するWorksheets(2)以降のデータの合計 Sheets(1)のA5の条件に合致するWorksheets(2)以降のデータの合計 Sheets(1)のA6の条件に合致するWorksheets(2)以降のデータの合計

行動規範の内容に同意します

回答1件

ベストアンサー

どのような結果が欲しいのか不明確ですが、

■　Sheets(1) の A2:A6 の条件に合致する Worksheets(2)以降のすべてのデータの合計
を表示する場合のコード例

vba
1Sub total_aggregate()
2    Dim total_price As Currency
3
4    Dim r() As Variant
5    r = Worksheets(1).Range("A2:A6").Value '条件を配列に格納
6
7    Dim i As Long    
8    For i = 2 To Worksheets.Count
9        With Worksheets(i)
10            Dim a As Variant
11            For Each a In r
12                total_price = total_price + WorksheetFunction.SumIf(.Range("A：A"), a, .Range("B:B"))
13            Next r
14        End With
15    Next i
16
17    Msgbox "合計: " & total_price
18End Sub

■ Sheets(1) の A2:A6 の各条件毎のWorksheets(2)以降のデータの合計
を表示する場合のコード例

vba
1Sub total_aggregate()
2    Dim total_price As Currency
3
4    Dim r() As Variant
5    r = Worksheets(1).Range("A2:A6").Value '条件を配列に格納
6
7    Dim a As Variant
8    For Each a In r
9        total_price = 0
10        Dim i As Long
11        For i = 2 To Worksheets.Count
12            With Worksheets(i)
13                total_price = total_price + WorksheetFunction.SumIf(.Range("A：A"), a, .Range("B:B"))
14            End With
15        Next i
16        Msgbox a & "の合計: " & total_price
17    Next r
18End Sub