[[20200212122243]]　『VBA 串刺し演算について』（ひめひめ）　ページの最後に飛ぶ

『VBA 串刺し演算について』（ひめひめ）

集計ツールを作成しようと試行錯誤しています。
そこで、教えていただきたいのですが…

1つのブックに同じ形式のシートが複数あります。
1番左にはシート名「集計」シートがあり、それより右以降のシート内の
「【管理者用】集計」と名前を付けた部分を合計したものを集計シートの「集計」と名前を付けた同じセル範囲内に反映させたい。

集計シート以外のA6からAN67までの各セルごとの合計を
集計シートのA6karaAN67に表示させるという作業をボタン押下により可能にしたい。

その時々により、ブック内のシート数は異なります。

似たような記事があったので、色々変更して試してみたのですがうまくいかず、質問させていただきました。

教えていただければ有り難いです。

＜使用 Excel：Office365、使用 OS：Windows2000 ＞

 こんな感じでしょうか。
 Sub Test_1()
    Const strCell As String = "!R6C1:R67C40"
    Dim SH()
    Dim i As Long
    For i = 2 To Worksheets.Count
        ReDim Preserve SH(1 To i - 1)
        SH(i - 1) = Sheets(i).Name & strCell
    Next i
    Sheets("集計").Range("A6").Consolidate Sources:=Array(SH()), Function:=xlSum
 End Sub
（ろっくん） 2020/02/12(水) 12:59

ろっくん様
お早いコメントありがとうございます！！
試してみます！！

結果は後程お知らせさせていただきますね♬
（ひめひめ） 2020/02/12(水) 13:01

すごい！！
できました！！
ろっくん様、ありがとうございました♬

（ひめひめ） 2020/02/12(水) 13:05

コメント返信：

[ 一覧(最新更新順) ]

[[20200212122243]] 『VBA 串刺し演算について』（ひめひめ） ページの最後に飛ぶ

[[20200212122243]]　『VBA 串刺し演算について』（ひめひめ）　ページの最後に飛ぶ