![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
添付ファイルにある様なA列のIDを基準としてQ列(数量)の合計値をW列(数量合計)に計算したいのですが、ワークシート関数を使って集計範囲をドラックすれば簡単に合計出来ますが、週計範囲が実データでは多行にわたる為、手動での計算は非常に手間が掛ります。 出来ればVBAを使って、一気に計算する方法をお分かりの方いましたらご教示願います。
※A列のIDは、IDごとに最上段行のみの入力(表示)となります。(同じIDの場合は、入力がありません。)
※実際の表には、この計算には関係のない項目の列があります。(A,B,Q,W列以外)
![「基準列ごとの合計」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/1573006_5497cad611ad7/M.jpg)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんににちは!
>実データでは多行にわたる為
というコトですので、ループせずにやってみました。
一例です。
Sub Sample1()
Dim i As Long, lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
Range("A:A").Insert
Range("A1") = "ダミー"
With Range(Cells(2, "A"), Cells(lastRow, "A"))
.Formula = "=IF(B2="""",A1,B2)"
.Value = .Value
End With
Range("A1").AutoFilter field:=2, Criteria1:="<>"
Range(Cells(2, "X"), Cells(lastRow, "X")).SpecialCells(xlCellTypeVisible).Formula = "=SUMIF(A:A,A2,R:R)"
AutoFilterMode = False
With Range(Cells(2, "X"), Cells(lastRow, "X"))
.Value = .Value
End With
Range("A:A").Delete
Application.ScreenUpdating = True
End Sub
こんな感じではどうでしょうか?m(_ _)m
早速のご教示ありがとうございます。
実データに組み込んでみます。
不明な点あった場合は再度質問させて頂くかもしれませんがその際はよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでSUMIFS関数で条件範囲の部分が#valueになる。 4 2023/04/28 12:42
- Excel(エクセル) 別シートに毎回異なるデータをコピーする 7 2022/06/24 09:02
- Excel(エクセル) エクセル/列追加時、合計行の計算式 7 2023/03/15 11:14
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- C言語・C++・C# このプログラミングの問題を教えてほしいです。 キーボードからデータ数nとn個のデータを入力し、平均値 3 2022/12/19 22:51
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Excel(エクセル) エクセル 自動計算 1 2023/01/30 13:28
- Excel(エクセル) アウトラインの小計のやり方 1 2023/03/20 11:51
- Excel(エクセル) B列に、A列の数字が偶数の場合は1減算した数字、奇数の場合はそのまま数字を自動表示したい 4 2022/04/16 12:01
- Excel(エクセル) エクセルで時間の合計 5 2022/06/04 10:54
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、条件をつけて人数...
-
エクセルシート同一項目内の重...
-
エクセルマクロでの消費税計算...
-
EXCELの複合条件検索
-
excel VBA コピーした行を、指...
-
エクセル集計ひと月を4週に分...
-
エクセルに詳しい方教えて下さ...
-
エクセルのセルで整数のみ選択...
-
パソコンで売上集計!!
-
エクセル 複数列の検索、該当箇...
-
エクセルで複数行に渡ったセル...
-
関数の件
-
ソートがかけてある表の列配置...
-
同時進行の2製品の平均作業時...
-
エクセルの範囲指定について
-
Excel2007での記入後の英語の小...
-
半角の引用符 “ ” の打ち方
-
エクセルで空白を無視して一番...
-
キーボードで英数字の半角と全...
-
エクセルの挿入図形で文字が隠...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、条件をつけて人数...
-
エクセルのセルで整数のみ選択...
-
エクセルの範囲指定について
-
エクセルの一覧からカードを作...
-
AdvancedFilterを使って値のみ...
-
エクセル 表の人数を計算したい...
-
5円単位の切り上げ関数
-
エクセルに詳しい方教えて下さ...
-
エクセルで複数行に渡ったセル...
-
エクセルで住所一覧から都道府...
-
エクセル集計ひと月を4週に分...
-
excel VBA コピーした行を、指...
-
エクセルで1行ごとの数値の並...
-
エクセルで一次線形補間する方法
-
エクセルマクロでの消費税計算...
-
エクセルで年齢別の人員を集計...
-
VBAマクロを使って給料明細を作...
-
エクセルで参加者一覧表から参...
-
エクセルのデータをパワーポイ...
-
エクセルVBAで値だけをコピーペ...
おすすめ情報