森 則彦 さん:

>基礎編についてはほぼ理解できたと思います。

よかったです☆
次は、「発展編１」へどうぞ。
http://www.exvba.com/hatten1.php

G列への書き出し。
以下もおもしろい書き方ですね。

基礎編のフォロー動画も、もう一度ひととおりやるとまた新しい発見があるかもしれません。
２巡目で新しい発見がありました！という方もけっこういらっしゃいます。

自分のスキルアップを実感するという意味でも楽しいので、ぜひやってみてください☆





>初めてコメントする森と申します。
>フォローアップセミナーのNO.０１８の最終問題＿　２は５時間ぐらいあれこれと悩みました。
>基礎編についてはほぼ理解できたと思います。
>次のステップの順序としては、どの講座を受けるのが理想でしょうか？
>
>G列に書き出すタイミングが上手く表現できず悩みました。
>以下が出来上がったプログラムソースです。
>
>
>
>code
>Sub list2()
> Dim memo, migi, gyo
> migi = 2
> For gyo = 2 To 27
> If Range("a" & gyo).Value <> Range("a" & gyo - 1).Value Then
> Range("e" & migi).Value = Range("a" & gyo).Value
> Range("f" & migi).Value = Range("b" & gyo).Value
> Range("g" & migi - 1).Value = memo & "地区"
> memo = Range("c" & gyo).Value
> migi = migi + 1
> Else
> memo = memo & "地区" & "、" & Range("c" & gyo).Value
> End If
> Next
> Range("g" & migi - 1).Value = memo & "地区"
>End Sub
>/code
>

2015/06/29 21:07