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

問題[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列を1行進むごとにG列に担当区域を書き込んでいくのは
データ量が増えると処理が重くなったりするのだろうかと思ったりもしています。
小川先生からみてどうでしょうか?
2021/07/08 15:07