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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

受講生さんの投稿

(投稿ID: 5155)

問題[2]に関して、自分で考えて作成したプログラムが解説動画とは別のものになりました。
結果は正しく出力されています。
以下プログラムです。
Sub mondai2()
    Dim gyo
    Dim tenki
    Dim kuiki
    tenki = 2
    For gyo = 2 To 27
        If Range("A" & gyo).Value <> Range("A" & gyo - 1).Value Then
            Range("E" & tenki).Value = Range("A" & gyo).Value
            Range("F" & tenki).Value = Range("B" & gyo).Value
            kuiki = Range("C" & gyo).Value & "地区"
            tenki = tenki + 1
        Else
            kuiki = kuiki & "," & Range("C" & gyo).Value & "地区"
        End If
        Range("G" & tenki - 1).Value = kuiki
    Next
End Sub

完成した時、自分では上手く出来たと思ったんですが、
小川先生のマクロと比較するとパッと見はすっきり見えるものの、
A列を１行進むごとにG列に担当区域を書き込んでいくのは
データ量が増えると処理が重くなったりするのだろうかと思ったりもしています。
小川先生からみてどうでしょうか？
2021/07/08 15:07