mmm********

2022/7/1 20:33

11回答

EXCELのマクロで質問です。 Ａ列にくだものの名前（みかん・りんご・ぶどう・なし） Ｂ列に金額があります。 Ａ列のくだものは、ランダムに複数あります。 最終行にみかんの合計金額

EXCELのマクロで質問です。 Ａ列にくだものの名前（みかん・りんご・ぶどう・なし） Ｂ列に金額があります。 Ａ列のくだものは、ランダムに複数あります。 最終行にみかんの合計金額 その下にりんごの合計金額 その下にぶどうの合計金額 その下になしの合計金額を表示したいのですが？ Ａ列は、日々変動します。 マクロで各くだものの合計金額を求めたいのですが。 よろしくお願いいたします。

Excel | Office系ソフトウェア・60閲覧・xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0
taihenda****

カテゴリマスター

2022/7/1 22:58

Sub test() Dim i As Long, rw As Long, dic As Object Set dic = CreateObject("Scripting.Dictionary") rw = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To rw If IsNumeric(Cells(i, 2)) Then dic(Cells(i, 1).Value) = dic(Cells(i, 1).Value) + Cells(i, 2) End If Next With Cells(rw + 1, 1).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .NumberFormatLocal = "@合計" .Offset(, 1).NumberFormatLocal = "#,##0" .Offset(, 1).Value = Application.Transpose(dic.items) End With End Sub

mmm********

質問者2022/7/2 8:51

ご回答ありがとうございます。 わたしの認識不足で申し訳ありません。 実はA列のくだものの名前のあとに、キャンデーとかジュースとかいろいろありました。集計は各くだもので合計を出したのですが。 よろしくお願いします。

ThanksImg質問者からのお礼コメント

お付き合いいただきありがとうございました。

お礼日時：7/3 15:29