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

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

受講生さんの投稿

(投稿ID: 5441)

下記マクロを書きました。
これだと、特に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