Sub ren()
Dim gyo
For gyo = 2 To 11
If InStr(Range("c" & gyo).Value, "区") = 0 Then
Range("f" & gyo).Value = Left(Range("c" & gyo).Value, InStr(Range("c" & gyo).Value, "市"))
Else
Range("f" & gyo).Value = Left(Range("c" & gyo).Value, InStr(Range("c" & gyo).Value, "区"))
End If
Next
End Sub
受講生さんの投稿
(投稿ID: 3528)
書いたあとだと、Instr(range(~)など、同じようなものが出てくるし、変数を使った方がすっきりするな、と思うんですが、書いている途中だと変数の使い方がピンときませんでした。
慣れるしかないのかなと思いますが、最初のうちは、以下のように書いてしまってから、あとから、ここはこういう風に変数を使った方がいいな、とか考えていってもいいのでしょうか?よろしくお願いします。
「問題4」シート「Sheet2」で、C列にある住所の「区」または「市」までをF列に、それ以降をG列に書き込むマクロを作れ
小川慶一さんのコメント
(コメントID: 5006)
> 書いたあとだと、Instr(range(~)など、同じようなものが出てくるし、変数を使った方がすっきりするな、と思うんですが、書いている途中だと変数の使い方がピンときませんでした。
順調ですよ (^^*
最初のうちは、書き終わってからも気づきません。
慣れてくると、書き終わってから気づくようになります。
さらに慣れてくると、書いている途中に気づくようになります。
さらに慣れてくると、書く前から気づくようになります。
さらに慣れてくると、「気づく」レベルを超えて、瞬間的に正解が思い浮かぶようになります。