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

下記マクロを書きました。
これだと、特にFor next構文の最初、最後は気にしなくて、うまく回りました。この内容でおかしいところありますでしょうか?結果はうまくいっているようです。
Sub mondai2()
    Dim gyo
    Dim gyosha
    Dim kuiki
    gyosha = 2
    For gyo = 2 To 27
        If Range("A" & gyo - 1).Value <> Range("A" & gyo).Value Then
            Range("E" & gyosha).Value = Range("A" & gyo).Value
            Range("F" & gyosha).Value = Range("B" & gyo).Value
            kuiki = Range("C" & gyo).Value & "地区"
            gyosha = gyosha + 1
        Else
            kuiki = kuiki & "," & Range("C" & gyo).Value & "地区"
        End If
        Range("G" & gyosha - 1).Value = kuiki
    Next
End Sub

2023/01/15 11:49