添付ファイルにある様なA列のIDを基準としてQ列(数量)の合計値をW列(数量合計)に計算したいのですが、ワークシート関数を使って集計範囲をドラックすれば簡単に合計出来ますが、週計範囲が実データでは多行にわたる為、手動での計算は非常に手間が掛ります。 出来ればVBAを使って、一気に計算する方法をお分かりの方いましたらご教示願います。
※A列のIDは、IDごとに最上段行のみの入力(表示)となります。(同じIDの場合は、入力がありません。)
※実際の表には、この計算には関係のない項目の列があります。(A,B,Q,W列以外)
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ランキング
-
とびとびの大量セルを選択した...
-
VBAマクロを使って給料明細を作...
-
エクセルで複数行に渡ったセル...
-
エクセルで一次線形補間する方法
-
エクセルのセルで整数のみ選択...
-
エクセル 表の人数を計算したい...
-
エクセルで、条件をつけて人数...
-
エクセルで繰り返しデータ入力
-
ACCESSのDBをEXCELデータで更新...
-
半角の引用符 “ ” の打ち方
-
名前(平仮名)を数字に変換する...
-
エクセルの挿入図形で文字が隠...
-
パソコンでダウンロードしたmp4...
-
「“」と「”」について
-
エクセルで空白を無視して一番...
-
半角で漢字を??
-
Yを逆さにした「スターデルタ結...
-
キーボードの感度が良すぎて困...
-
「正」の旧文字?について・・
-
フォルダ名を並び替えても必ず...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、条件をつけて人数...
-
エクセルのセルで整数のみ選択...
-
エクセルの一覧からカードを作...
-
エクセル 表の人数を計算したい...
-
エクセルの範囲指定について
-
エクセルで複数行に渡ったセル...
-
excel VBA コピーした行を、指...
-
エクセル集計ひと月を4週に分...
-
エクセルで一次線形補間する方法
-
AdvancedFilterを使って値のみ...
-
5円単位の切り上げ関数
-
A3やB4のA,Bって何かの略ですか?
-
エクセルで参加者一覧表から参...
-
エクセルで住所一覧から都道府...
-
Excel2007での記入後の英語の小...
-
エクセルシート同一項目内の重...
-
エクセルVBAで値だけをコピーペ...
-
EXCELで表組って?
-
エクセルで表の一部をコピーし...
-
エクセルでユニーク数を求めた...
おすすめ情報