Excel2007で解答いつもありがとう

質問

いつも解答してくださる方々、心より感謝しています。いつもありがとうございます。時々、私のお礼の返事と解答者さん達の文章の文字数を比べてたりしたら申し訳なく思ったりします。(；´д⊂)
お礼が無しにならぬよう急ぐせいか短文になりがちでドライに思われる方もいらっしゃるのでは……と不安もあり、この場を利用して皆様に深くお礼申し上げます。m(_ _)m本当にありがとうございます。

お礼の続きで失礼なんですがまた質問させてください。

E3から、各セルにABCのいずれかが入っており、下に向かっているデータがあります。

それとは別でO3にもE3のような形でデータが入っております。

今回の私の質問はここからになります。

先程のE列のデータをE3から1つずつ下に向かっていきO3に1つずつコピー挿入したいです。
それまでにあったO3から下のデータ群は1つずつ下にずれていく形になります。

ご無理なさらぬようお願いいたします。

回答No.1

mt2015 · ベストアンサー

以下の様なサンプルを作ってみました。

Sub Sample()
　　'E3から空白セルの手前まででループ
　　For i = 3 To Range("E3").End(xlDown).Row
　　　　'O3に1セルインサートしてした方向にシフト
　　　　Range("O3").Insert Shift:=xlDown
　　　　'O3にE3以降のセルの値を入れる
　　　　Range("O3") = Cells(i, 5).Value
　　Next i
End Sub

ご自身の質問の仕方を気にされているようですので、その点についてコメントさせて頂くとすると……。ここはQ&Aサイトなのですから解らない事を質問するべきです。
貴方の質問は「質問」と言いながらマクロを作ってくれと言う依頼にしか見えません。
こういう事がやりたくてこういうマクロを作ったけど、ココが上手く動かないとか、この処理をどうすればよいのか解らないと言う質問に変えていっては如何でしょう。

お礼

おっしゃる通り頼ってしまう形になっています。残念に思います。
VBAの基本を学んだだけでは自分がやろうとしてることの領域の難しさもわからないまま１週間悩み続けてから質問してソースの形を見て、真似て作れた時には自分が愚かなレベルで挑戦していたことに気付かされる虚しさが残り、それを簡単にやって私を助けてくれる、今まで大変苦労されたであろう解答者さんには、頭が下がりっぱなしです(._.;)。
私が今作ってる物で事が良い方向に進めば、何か解答者さん達にお礼ができたらなぁとか頭に思い浮かべます。また勝手ながら質問？をさせていただきます。ご指南、ご解答ありがとうございます。