![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
VBAでは、代表的なDictionary オブジェクトを使うのが流行っていますが、Excelの機能の重複の削除を使っても可能です。
どちらでも同じことですが、店名と品名をあわせてしまうことです。ただ、切離しやすいように、「,」を加えています。'//
Sub IteminShopTotal()
Dim Rng As Range
Dim c As Range, i As Long
Dim Key As Variant
Dim myDic As Object
Dim Start As Range
Dim Titles As Range
Set myDic = CreateObject("Scripting.Dictionary")
myDic.CompareMode = vbTextCompare 'テキストコンペアモード
'タイトル項目
Set Titles = Range("A1:C1")
'データの始まり
Set Start = Range("E1")
Set Rng = Range("A2", Cells(Rows.Count, 1).End(xlUp))
For Each c In Rng
Key = c.Value & "," & c.Offset(, 1).Value
If myDic.Exists(Key) Then
myDic(Key) = myDic(Key) + c.Offset(, 2).Value
Else
myDic.Add Key, c.Offset(, 2).Value
End If
Next c
With Start
Titles.Copy .Cells(1, 1)
For i = 0 To myDic.Count - 1
.Cells(i + 2, 1).Value = Split(myDic.keys()(i), ",")(0)
.Cells(i + 2, 2).Value = Split(myDic.keys()(i), ",")(1)
.Cells(i + 2, 3).Value = myDic.Item(myDic.keys()(i))
Next
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) チームごとにどの商品を何個希望しているか数量を算出したいです。 A列(A2~A265)に各チーム名が 3 2023/07/18 18:46
- Visual Basic(VBA) vbaマクロについて 【1.csv】をもとに【商品.csv】に有るものを【有り.csv】として名前を 1 2023/05/18 07:58
- Visual Basic(VBA) vbaマクロについて 次のようなマクロを組みたいです。 自分は初心者なので全くわかりません。 詳しく 8 2023/05/18 18:38
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- 会計ソフト・業務用ソフト Excelで売上げデータの中の任意の商品の合計を出したい 3 2023/01/18 18:19
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Visual Basic(VBA) 【VBA】複数行あるカンマ区切りのデータを全て縦に一列に並べたい 5 2022/04/13 17:03
- PostgreSQL PostgreSQL レコードからアイテム種類数を取得したい 2 2022/11/23 22:31
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
- Excel(エクセル) 特定のセルに数値が入っているシートのみ印刷する方法 2 2022/12/07 13:03
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ハーブソルトを代用できるもの...
-
7文字以上のフルーツをできるだ...
-
4歳の子供がさくらんぼを種ご...
-
ラズベリーの種の抜き方を教え...
-
さくらんぼを塩水で洗うのは?
-
パイナップルにたかる虫
-
教えてください!!
-
梶井基次郎の檸檬
-
中黒「・」か読点「、」か?
-
メロンとヨーグルトは合わない...
-
Excel MATCH関数で検索範囲内...
-
パイナップル果汁はなぜ泡立ち...
-
こんなスイカは食べても大丈夫...
-
とうもろこし 粒の根元がオレ...
-
【ぶどう】 友人からデラウェア...
-
スイカは腐るとどんな味がしま...
-
ブルーベリージャムに種?
-
キウイが苦い。 先ほど、ゴール...
-
エクセル 同名の場合はB列にC...
-
ふにゃふにゃになったキウイっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えてください!!
-
ハーブソルトを代用できるもの...
-
7文字以上のフルーツをできるだ...
-
中黒「・」か読点「、」か?
-
筍の上の部分が緑色になってい...
-
スポンジケーキってどのくらい...
-
Excel MATCH関数で検索範囲内...
-
Excelでの全通りの組み合わせ出...
-
梶井基次郎の檸檬
-
エクセルで数字を入力したら文...
-
煮物こんにゃくの冷凍保存について
-
10年前のにんにく漬け、食べて...
-
ふにゃふにゃになったキウイっ...
-
職場で隣の人についてです。飲...
-
さくらんぼに似ているが、さく...
-
パイナップルにたかる虫
-
しらたきと吐き気
-
Excelの関数 SUBSTITUTEとIF関...
-
大至急!妊娠初期でイチゴにつ...
-
4歳の子供がさくらんぼを種ご...
おすすめ情報