受講生 さん:

まずは動けばOKです。
そして、次のステップは、渋谷区でも世田谷区でも港区でも動くようにすること ヾ(´ー｀)ﾉ


>お世話になります。
>仕事で必要で、少し複雑なMID関数をマクロで強引に当てはめてみました。なんだかできちゃいましたが・・
>
>わかっていることは、①全部で16文字　②11文字目がいつも丁　③最初の1文字と最後の3文字は必要ない
>　　　　　　　　　　④”－”の前は　AかＢかＣ
>C列の文字を以下条件でＧ列に抜き出す
>例）”東京都渋谷A代々木4丁目5番地よ”　を　”京都渋谷A-代々木45”　としたい。
>2文字目から5文字取り出し”－”を入れる＆7文字目から4文字取り出し＆2文字飛ばして＆13文字目の1文字を取り出す。
>これを1つの文字として　別台帳に転記する。
>
>今回は規則性なし(この場合の規則性が当てはまるのかもわからなかったので・・^:^;）
>単純に関数の式を当てはめました。
>Sub MMM()
> Dim NAMAE
> Dim GYO
> For GYO = 2 To 51
> NAMAE = Range("C" & GYO).Value
> Range("G" & GYO).Value = MID(NAMAE, 2, 5) & "-" & MID(NAMAE, 7, 4) & MID(NAMAE, 13, 1)
> Next
>End Sub
>
> できちゃったからいいのか？とも思いましたが
>　他に良い方法があれば教えてください。

2016/03/09 08:22