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ランキング
-
エクセルでのフラグの立て方
-
相手に物を譲る時、金額が発生...
-
1.1は自然数ですか?
-
自然数ってマイナス含まれますか?
-
海外の人がりんごを皮ごと食べ...
-
冷凍パイシートってどこに売っ...
-
桃の皮の上手なむき方
-
このリンゴの名前は??
-
高校生。ダイエット中です。 わ...
-
りんごのケーキをパウンドケー...
-
生のりんごを使うアップルパイ?
-
1日りんご2個 簡単に食べら...
-
エクセルで日計累計
-
酸味の強い林檎(リンゴ)が食...
-
「どこだか」と「どこか」どう...
-
高校数学。順列組み合わせ。
-
りんごジャムの作り方
-
アップルパイがうまく焼けませ...
-
オーブンがありません!!生地...
-
アップルパイは温かいか冷たいか
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
18時以降食べ物を食べず1ヶ月...
-
エクセルでのフラグの立て方
-
相手に物を譲る時、金額が発生...
-
海外の人がりんごを皮ごと食べ...
-
1.1は自然数ですか?
-
「りんご5つをください」と「...
-
「だまされたと思って」
-
「どこだか」と「どこか」どう...
-
りんごはりんごでも・・・
-
硬くて甘くないリンゴの美味し...
-
アップルパイは温かいか冷たいか
-
自然数ってマイナス含まれますか?
-
Excel初心者です。 詳しい方、...
-
日本語の助詞「と」
-
煮りんご シナモンは りんごを...
-
まずい林檎をなんとかしたい
-
パイの焼き方
-
白雪姫といったら何色思い浮か...
-
おろしリンゴの酸化を防ぐには
-
アップルパイの作り方を教えて...
おすすめ情報