投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
商品ごと、年ごとの販売額合計をピボットテーブルのように出力する（その１）

退会ユーザさんの投稿

(投稿ID: 5451)

まず最初にエクセル機能で並び変えているので、単純に下記マクロを作成しました。
これでも答えは変わりませんが、模範解答と大きく異なっており、驚きました。下記マクロでは、何かおかしい点ございますでしょうか？
    Dim moto
    Dim saki
    
    Range("H3").Value = Range("E2").Value
    Range("I3").Value = Range("B2").Value
    Range("J3").Value = Range("F2").Value
    
    saki = 3
    For moto = 3 To 231
        If Range("B" & moto).Value = Range("B" & moto - 1) Then
            Range("J" & saki).Value = Range("J" & saki).Value + Range("F" & moto).Value
        Else
            saki = saki + 1
            Range("H" & saki).Value = Range("E" & moto).Value
            Range("I" & saki).Value = Range("B" & moto).Value
            Range("J" & saki).Value = Range("J" & saki).Value + Range("F" & moto).Value
        End If
    Next

2023/02/12 14:56