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

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

受講生さんの投稿

(投稿ID: 2089)

ここまでの文字列関数の学習をもとに、nextを使って市区名を抜き出す部分マクロを作成してみました。
この先の動画はまだ見ていない段階です。
Sub renshyu004()

Dim jyusyo              　　　　'元となる住所を変数とする
Dim i                  　 　　　　'カウント変数の宣言

    For i = 2 To 20     　　　　'カウント数をラスト行までと指定
        jyusyo = Range("c" & i).Value  　'元住所をjyusyo変数に格納
        Range("g" & i).Value = Left(jyusyo, InStr(jyusyo, "区"))
                          '住所の先頭文字から、"区"の文字位置までの文字数を取得
    Next i

End Sub

gooska
2016/03/21 03:09