エクセルＶＢＡでSheet2の指定のセルをコピーして、
Sheet1にある表の中の指定の列の空白セルを探して貼り付けるＶＢＡを作成したいのですが、うまく出来ません。
Sheet1の表は１行目、２行目は見出しの項目が並んでいます。
３行目から５０行目までは値を入力するようになっていて、
５１行目はそれらをの集計が表示されるようになっています。
下記のＶＢＡを作成したら３行目～５０行目までの空欄に貼り付けず、
５２行目に貼り付けてしまいます。
-----------------------------------------------------------
Sheets("Sheet2").Range("B6").CurrentRegion.Copy
Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
------------------------------------------------------------
修正して頂けないでしょうか？
宜しくお願いします。
投稿日時 - 2010-02-09 23:05:10
> ５１行目はそれらをの集計が表示されるようになっています。
ということは、51行目には数式がはいっているんですね？
だから52行目から張り付いてしまうんです。
Sheets("Sheet1").Cells(51, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues
なら大丈夫なはずですよ。
投稿日時 - 2010-02-10 09:38:21
お礼
回答ありがとうございました。
意図していた通りの動作が出来ました。
感謝致します。
投稿日時 - 2010-02-10 21:10:30
3人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（1件中 1～1件目)
こんな感じで
＞Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues
を
Sheets("Sheet1").Cells(1, "B").End(xlDown).Offset(1).PasteSpecial xlPasteValues
へ変更
以上、参考まで
投稿日時 - 2010-02-10 02:06:49
お礼
回答ありがとうございました。
教えて頂いた関数ではうまく出来ませんでした。
投稿日時 - 2010-02-10 21:09:33
