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

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

多和田 真也さんの投稿

(投稿ID: 2093)

小川先生の書いたプログラムをちら見しながら、なんとか、正しい結果が出るプログラムになりました。
しかし、なぜ出来ているのか、説明もできないです。イマイチ理解度が低いような気がします。
[2]に関しては、こんな感じです。若干小川先生の書いたものと違う（if文が一つだけ）のですが、これでいいのでしょうか？
Sub test2()

    Dim migi
    Dim hida
    Dim ku
    migi = 1
    For hida = 2 To 27
        If Range("A" & hida - 1).Value < Range("A" & hida).Value Then
            migi = migi + 1
            Range("E" & migi) = Range("A" & hida).Value
            Range("F" & migi) = Range("B" & hida).Value
            ku = ""
        End If
            ku = ku & "," & Range("C" & hida).Value & "地区"
            Range("G" & migi).Value = Mid(ku, 2)
    Next
End Sub

2016/03/21 17:23