
ID 数量 名称 コード 要因
11768 20 レモン 黄色 AB
11770 50 レモン 黄色 AB
11780 10 パイン 黄色 AB
11784 20 りんご 赤 BC
11785 60 りんご 赤 XX
11787 20 りんご 赤 ZZ
11786 20 りんご 赤 YY
11788 20 りんご 赤 YY
11789 20 りんご 赤 YY
11791 30 りんご 赤 YY
11793 20 パプリカ 赤 YY
このようなデータがありまして、名称+コード+要因で単位で一致している物を重複データとして下記のように加算したいと思っています。
名称 コード 数量 要因
レモン 黄色 70 AB
パイン 黄色 10 AB
りんご 赤 20 BC
りんご 赤 60 XX
りんご 赤 20 ZZ
りんご 赤 90 YY
パプリカ 赤 20 YY
ネットを見て、エクセルVBAでマクロを書いていたのですが、が、加算すること出来ませんでした。
CreateObject("Scripting.Dictionary")を使用してしまうと重複データを割り出す事は出来ませんでした。
名称 コード 数量 要因
レモン 黄色 20 AB
パイン 黄色 10 AB
りんご 赤 20 BC
りんご 赤 60 XX
りんご 赤 20 ZZ
りんご 赤 20 YY
パプリカ 赤 20 YY
このように名称+コード+要因で最初に見付かったものだけを抽出してしまいました。
これのデータに対し、真ん中の表のように加算も行いたいのですが、エクセルvbaで可能でしょうか?
お力添えをお願いします。
No.2ベストアンサー
- 回答日時:
No.1です。
> sum As Integer,
これはいらなかったですね。
⇒使うの忘れてました。
No.1
- 回答日時:
シート1のA1を起点とした表から集計してシート2のA1以降に書き出すものです。
違っていたらごめんなさい。
Sub megu()
Dim myDic As Object
Dim r As Range
Dim sum As Integer, st As String
Set myDic = CreateObject("Scripting.Dictionary")
With Worksheets("Sheet1")
For Each r In .Range("C2", .Cells(Rows.Count, "C").End(xlUp))
st = Join(WorksheetFunction.Index(r.Range("A1:C1").Value, 1, 0), "_")
If Not myDic.Exists(st) Then _
myDic.Add st, Array(r.Value, r.Range("B1").Value, _
WorksheetFunction.SumIfs(.Range("B:B"), .Range("C:C"), r.Value, .Range("D:D"), r.Range("B1").Value, .Range("E:E"), r.Range("C1").Value), _
r.Range("C1").Value)
Next
End With
With Worksheets("Sheet2")
.Cells.ClearContents
.Range("A1:D1").Value = Array("名称", "コード", "数量", "要因")
.Range("A2").Resize(myDic.Count, 4).Value = Application.Transpose(Application.Transpose(myDic.Items))
End With
Set myDic = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 7 エクセルで重複データから抽出したい 2 2022/05/18 23:31
- PostgreSQL postgreSQL カラムの全ての値を取得したい 3 2022/10/07 12:33
- 高校 数学A組み合わせの考え方 3 2022/04/19 09:05
- Access(アクセス) アクセス where句を使用して複数条件抽出をするには 2 2022/08/29 13:24
- Photoshop(フォトショップ) (Scratch Jr)「黄色いアイコン」の名前 1 2022/12/06 07:44
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) Excelの関数詳しい方お願いします。 13 2023/01/18 21:11
- Access(アクセス) アクセス 有効なフィールド名、または式として認識できませんのエラー 3 2022/08/19 11:53
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Visual Basic(VBA) VBA 連続する名前ごとに集計 3 2022/05/21 18:24
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAで重複データを合算したい
Excel(エクセル)
-
VBAで重複する項目を1つにまとめて金額を合計したい
Excel(エクセル)
-
重複行を削除して数値を合算したい(合算列が多い)
Excel(エクセル)
-
-
4
重複データの合算(VBA)
Visual Basic(VBA)
-
5
VBAで重複データを合算したい(時間)
Excel(エクセル)
-
6
vba 重複データ合算
Visual Basic(VBA)
-
7
VBAで文字列を数値に変換したい
Excel(エクセル)
-
8
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
9
重複するIDのデータを1行にまとめるvbaのコード
Access(アクセス)
-
10
重複データをまとめて合計を合算する
Visual Basic(VBA)
-
11
Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
-
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
シナモンロールかアップルパイ...
-
緊急!アップルパイのレシピ
-
DSUMについて困っています
-
オイルパステル画のりんごを普...
-
ミルフィーユと・・
-
好きな果物教えて下さい! 私は...
-
りんご150gって どのくらいが質...
-
1日りんご2個 簡単に食べら...
-
EXCELでカンマで区切られた文字...
-
頭でイメージしたものを画像と...
-
さがしています!鯛のパイ!
-
ミルクティアレンジレシピあり...
-
リンゴとバナナの変色
-
パサパサになってまずくなって...
-
アップルパイと茶巾絞りのつく...
-
カットしたリンゴの色ができる...
-
オーブンがありません!!生地...
-
アップルパイのフィリング
-
りんごの品種
-
該当するファイル名から抽出したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
好きな果物教えて下さい! 私は...
-
オイルパステル画のりんごを普...
-
エクセルでのフラグの立て方
-
「りんご5つをください」と「...
-
エクセルvbaで重複データを加算...
-
4.8ミリグラムは小さじどのくら...
-
「どこだか」と「どこか」どう...
-
焼きりんごの作り方。
-
相手に物を譲る時、金額が発生...
-
アップルパイは温かいか冷たいか
-
アップルパイの食べ頃を教えて ...
-
海外の人がりんごを皮ごと食べ...
-
紅玉りんごって、美味しいです...
-
パイの焼き方
-
りんごりょうり
-
硬くて甘くないリンゴの美味し...
-
りんごの保存方法
-
「だまされたと思って」
-
アップルパイを作る!簡単レシ...
-
A×Bで、Bの数だけAをコピーする...
おすすめ情報