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

エクセルマクロ・VBA基礎編
基礎講座第３章７ - 住所情報を分割する（方針を考える）

浦山大さんの投稿

(投稿ID: 3338)

プログラム表記はこれで上手にいくかな？テスト兼ねて投稿です。

演習に入る前に自分で何も見ないでコードを作成してみました（F列、G列）。
ここまでの練習で、ForNext構文のイメージが湧きやすかったので、
ForNext構文にて記載しました。

これじゃないパターンで作るとどう作れるのかな？
と楽しみにしながら動画を拝見していきたいと思います。

他コメントで出てきているみなさんが記載したコードも、
自作したあとで拝見させて頂くと「こういう方法もあるのか！」
ととっても勉強になります。

Excelファイルでテストしたところ、
以下2つのコードが思うように動作したことを確認済みです。
Sub test()
    Dim gyo
    For gyo = 2 To 51
    Dim juusho
    juusho = Range("C" & gyo)
        Range("F" & gyo).Value = Left(juusho, InStr(juusho, "区"))
    Next
End Sub

↑gyoとjuushoを変数にしました。
Sub choumeiika()
    Dim gyo
    For gyo = 2 To 51
        Range("G" & gyo).Value = Mid(Range("c" & gyo).Value, InStr(Range("c" & gyo), "区") + 1)
    Next
End Sub

↑gyoだけ変数にして、juushoは使いませんでした。
何回も書き直しがあったので纏められた方がいいなと感じました。
2017/08/13 22:05