EXCEL VBA マクロ 別シートの空白行へのコピー

すみません、、いくらやってもできません。どなたかわかるかた助けてください。

＜質問内容＞
エクセルのsheet1、Sheet2があり、
Sheet2にあるデータをSheet1のA列の空白行に貼り付けするというマクロを組みたいです。

BVAを使って、Sheet1の任意のデータ（データが入っているところのみ）をコピーすることまではできましたが、Sheet2へのA列空白行へペーストができないでいます。

※Sheet2は別会社で作成のため、シート保護されていますが、貼り付けたい場所はロックされていません。
保護されているがゆえにCtr+Gのセル選択は使用できない状態です。

すみませんが、明日までになんとかお願いいたします！明日中に作成、上司に渡す予定です。

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2009/12/14 21:16

> Sheet1のA列の空白行に貼り付けするという

「空白行」の定義を詳しく！

「コピーまでできていて貼り付けができない」だけなら、
いったん別ブックで、コピペを「マクロの記録」でＶＢＡのコード作成するのも手だし。

実は「なさりたいこと」が、「飛び飛びの行のデータをまとめたい」なら、
セルＡ１をクリック、右クリックの「形式を選択して貼り付け－値」で
対応できることなのかも。

「途中の空白行を除去したい」なら、
１）ある一列に連番振って、
２）データがある列でソートして、
３）空白行となる１）のデータをひとまとめに消して、
４）１）で再ソートして、
５）１）を消す
もできるだろうし。

この回答への補足

回答ありがとうございます。
空白行の定義、答えになっているかどうか不安ですが、
Sheet2で入力していったものをSheet1のA列の空白行へペーストして、過去のものにどんどん蓄積していくイメージです。

sheet2にはドロップダウンリストとvlookが設定されていて、入力が簡単なようにしてあります。入力が終わったら、確定ボタンを押して値に変換しコピー（ここまではできています）、sheet1のA列の空白行へペースト（これができないんです・・）
ペースト後、Sheet2のデータはマクロで書式を残してクリア。翌日また入力してSheet1の空白行にペーストして蓄積していく感じです。
Sheet2には空白行はない予定です。

＞「コピーまでできていて貼り付けができない」だけなら、いったん別ブックで、コピペを「マクロの記録」でＶＢＡのコード作成するのも手だし。
ここまでは可能なのですが、空白行を探して貼り付けというのができないでいます。

すみませんが、よろしくお願いいたします。

補足日時：2009/12/14 21:37

No.3 回答者： myRange 回答日時： 2009/12/14 23:35

＞Sheet2にあるデータをSheet1のA列の空白行に貼り付けするというマクロを組みたいです。

●これでは、Sheet２　を　Sheet１　へコピーとなってるが、

＞BVAを使って、Sheet1の任意のデータ（データが入っているところのみ）をコピーすることまではできましたが、Sheet2へのA列空白行へペーストができないでいます。

●ここでは、Sheet１　を　Sheet２　へコピーとなっている

●また、補足では、Sheet２　を　Sheet１　へコピーとなってる

質問するときは投稿前に何度もチェックするよう心掛けませう。

と、ま、それは置いといて、


Sheet２　→　Sheet１の空白行へ、値のみコピーする場合は
方法はいくつもありますが、、、

--------------------------------------------------
Sheets("Sheet2").Range("A1").CurrentRegion.Copy
Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
--------------------------------------------------

以上です。

この回答へのお礼

ありがとうございます！
おっしゃるとおり・・焦って書いたので・・すみません。

明日朝イチで試してみます！ありがとうございます！

お礼日時：2009/12/14 23:44

No.2 回答者： bin-chan 回答日時： 2009/12/14 22:27

このカテゴリでも、各種検索サイトでもキーワード[EXCEL VBA 最終行]でサンプルが拾えますよ。

一度、ご自身で試すとよいかも。
１）新規ブックを用意してセルＡ１・セルＡ２になにか適当なデータを入力。
２）カーソルをセルＡ１に置く
３）マクロの記録開始
４）Ctrl+↓キー２回押下、Ctrl+↑キー１回押下、↓キー１回押下。
５）マクロの記録停止。


２）は「毎回同じ箇所から始める」です。
５）で、最終行のひとつ下（＝空白行）です。

この回答へのお礼

ありがとうございます！
試してみます！

EXCEL VBA 最終行
で検索してみますね。

お礼日時：2009/12/15 14:32