ゲスト さん:

>9回目から復習をしてきて18回目まで戻ってきました。
>それでも書くのに悩んだ12回と18回は、また復習しますヽ(*´ｖ｀*)ﾉ

ガンガン練習してください☆

Web連携講座は、ITリテラシーつけるにはとてもよいですよ。
いただいたコード。

Range("G" & mke - 1).Value = Left(ward, Len(ward) - 1)

の処理を26回やっています。それだとちょっとムダが多いかな。
入力先のセルごとに上記処理は1回までで済むように改変してください。

以下、極端な例で考えると分かるかと思いますので。
いまは for i = 2 to 27 ... next だからそれほどでもないけど、業者は15件しかない地区は3,000ある、とかだったら2,9000回の入力は直後に上書きされるだけのムダな記入になります。
それではまずいですよ。



>9回目から復習をしてきて18回目まで戻ってきました。
>それでも書くのに悩んだ12回と18回は、また復習しますヽ(*´ｖ｀*)ﾉ
>次は「Web連携」をやりつつ毎日一つはマクロを書いていきます^^/
>「Web連携」が終わった後は、マクロの苦手な部分も克服できていることに期待。
>それから発展編1に移ろうと思います^^
>
>今回書いたコード↓
>

>Sub create_ward()
>    'review: 2015/2/16
>    Dim i, mke, ward
>    mke = 2
>    For i = 2 To 27
>        If Range("A" & i - 1).Value <> Range("A" & i).Value Then
>            Range("E" & mke).Value = Range("A" & i).Value
>            Range("F" & mke).Value = Range("B" & i).Value
>            ward = Range("C" & i).Value & "地区,"
>            mke = mke + 1
>        Else
>            ward = ward & Range("C" & i).Value & "地区,"
>        End If
>        Range("G" & mke - 1).Value = Left(ward, Len(ward) - 1)
>    Next
>End Sub
>

2015/02/19 17:39