Dim 範囲() As String
Dim パス As String
ReDim 範囲(cnt) As String
パス = "'" & ActiveWorkbook.Path & "\[" & ActiveWorkbook.Name & "]"
For i = 1 To cnt
範囲(i) =パス & Worksheets(i).Name & "'!" & _
Worksheets(i).Range("A1").CurrentRegion. _
Address(ReferenceStyle:=xlR1C1)
Next
With Worksheets("集計")
.Range("C2").Consolidate _
Sources:=範囲, _
Function:=xlSum, _
TopRow:=True, LeftColumn:=True, _
End With
集計シートにシート1からシート3までを串刺し集計
したいのですがどこをなおしらよいのか。
わかる方お願い致します。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
詳しい訳ではないですが。
参考
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …
には、
----
Sources
省略可能
バリアント型(Variant)の値を使用します。
----
とありますので、
Dim 範囲() As String
この宣言する型を変更してみるとか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) 以前シートを集めて1シートへ繋げる下記コードをご教授いただき作成しました。 今回すでに集めてある「ま 1 2022/08/29 20:38
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【Excel VBA】 Excelの統合機能の、統合元範囲の記述に関して教えてください
Excel(エクセル)
-
◾️Excel VBA 統合について Consolidateメソッドを使用する際、Excelブックを
Visual Basic(VBA)
-
Consolidateメソッドの引数のSource部を自動取得をしたい
Excel(エクセル)
-
-
4
エクセルVBAでConsolidate
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのSheet番号って変更でき...
-
マクロの「SaveAs」でエラーが...
-
マクロ実行後に別シートの残像...
-
Count Ifのセルの範囲指定に変...
-
Changeイベントで複数セルへの...
-
前回質問の続きになりますが、...
-
VBAで変数の数/変数名を動的に...
-
VBA 空白行に転記する
-
Excel2013で切り取り禁止
-
エクセルVBA:軸の設定でエラー...
-
FindNextがうまくいかない
-
Unionでの他のシートの参照につ...
-
VBA別シートの最終行の次行へ転...
-
VBAで、1つのエクセルで、2つの...
-
VBA 別ブックからの転記の高速...
-
エクセルのVBAで条件を別シート...
-
複数シートの複数列に入力され...
-
VBA Userformで一部別シートに...
-
Excelのシート別でのセルのリン...
-
グラフマクロで系列を変数にす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
Count Ifのセルの範囲指定に変...
-
VBA 別ブックからの転記の高速...
-
VBA別シートの最終行の次行へ転...
-
Changeイベントで複数セルへの...
-
複数シートの複数列に入力され...
-
ExcelのVBマクロを、バックグラ...
-
VBA 実行時エラー1004 rangeメ...
-
楽天RSSからエクセルVBAを使用...
-
【VBA】特定の条件でセルをコピー
-
100万件越えCSVから条件を満た...
-
Excel2013で切り取り禁止
-
VBAで変数の数/変数名を動的に...
-
アクセスからエクセルへ出力時...
-
Unionでの他のシートの参照につ...
-
グラフマクロで系列を変数にす...
-
Excel VBA オートフィルターで...
おすすめ情報