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

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

yuzzziiiyさんの投稿

(投稿ID: 5278)

Mid関数、instr関数には馴染みが無かったので少し手惑いましたが、過去動画を復習しながら以下のコードを書いてみました。
動画の視聴を進めていく毎に少しづつわかることや気付くことがあって楽しく学習させていただいてます！
また、コードの埋め込みも試しにやってみたかったのでここで試させていただければと思います！

Sub jyuusyo()
Dim ku
Dim i
For i = 2 To 51
    ku = InStr(Range("C" & i).Value, "区") '区の文字の場所を探す
    Range("f" & i).Value = Left(Range("C" & i).Value, ku)
    Range("g" & i).Value = Mid(Range("C" & i).Value, ku + 1, 20)
Next
End Sub

2022/05/31 09:11