お世話になります。

本日ようやく動画解説を見終わる
ことができました。

解説もありましたように最後の設問の
For~Nextの最初と最後の書き込みに
手間取ったのですが、以下のような
回答を作成していましたが、

これに冠する小川さんの解説は、また
しても（＾＾；自分では思いつかないような
手順というかアプローチの仕方でしたので
非常に勉強になりました。

最終問題ですので全体を総括させて
いただきますと、

知らないうちに非常に短期間に業務でも
マクロを活用できるようになりましたので
非常に投資効果の高いセミナーだったと
いえるかと思います。

ありがとうございました。


発展編とのギャップがどのくらいあるかは
わかりませんが、何度か復習した後、できるだけ
はやく発展編も受講させていただきたいと
思っております。

（実は、密かに、Excelマクロによる分析を
多用する業務に移ることを目論んでおりますので（＾＾、）
もっともっと勉強していきたいと思います。

今後ともよろしくお願いいたします。


---
Sub kakikae()
Dim migi
migi = 2

Dim kuiki
kuiki = 0

Dim hida
For hida = 2 To 27
If Range("a" & hida).Value <> Range("a" & hida - 1).Value Then
Range("e" & migi).Value = Range("a" & hida).Value
Range("f" & migi).Value = Range("b" & hida).Value
kuiki = Range("c" & hida).Value & "地区"
migi = migi + 1

Else
kuiki = kuiki & "," & Range("c" & hida).Value & "地区"

End If

Range("g" & migi - 1).Value = kuiki

Next


End Sub
---

2014/08/11 05:09