レッスン-投稿一覧パソコン仕事５倍塾ポータル

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

退会ユーザさんの投稿

(投稿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

小川慶一さんのコメント

(コメントID: 8085)

こんにちは。

おかしいかどうかで言えばおかしくはないのですが、不利ですね。

データが200件くらいだと実行時間にそんなに差は出ませんが、たとえば100万件くらいあった場合は、著しくパフォーマンスが落ちます。
(セルへの値入力が最低でも100万回発生するから)

セルから値を取得するのも、変数に格納されている値を参照するよりも高負荷です。

それに対して、見本で示したやり方だと、前後のセルを比較して値に変化があったときしかセルへの値入力は発生しません。
セルの値の調査も、調査対象のセルに対してのものだけで済みます。

2023/02/12 16:19