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

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

ゲストさんの投稿

(投稿ID: 1202)

コードを書いてみました。
一応上手く処理されましたが、
どこかおかしいところや注意すべき箇所はありますでしょうか?
Sub test()
    Dim cGyo As Long
    Dim cHida As Long
    Dim cMigi As Long
    Dim sTiku As String
    
    cHida = 2
    cMigi = 2

    For cGyo = 2 To 27
        If Range("A" & cGyo).Value <> Range("A" & cGyo + 1).Value Then
            Range("E" & cHida) = Range("A" & cGyo).Value
            Range("F" & cHida) = Range("B" & cGyo).Value
            Range("G" & cMigi) = Mid(sTiku & "," & Range("C" & cGyo).Value & "地区", 2)
            cHida = cHida + 1
            cMigi = cMigi + 1
            sTiku = ""
        Else
            sTiku = sTiku & "," & Range("C" & cGyo).Value & "地区"
        End If
    Next
End Sub

2015/03/27 08:16