Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8296 / 13644 ツリー ←次へ | 前へ→

【34107】データーの入っている行のみコピーして、別シート最終行へ蓄積させていくに... でぼっか 06/1/26(木) 14:12 質問[未読]
【34108】Re:データーの入っている行のみコピーして... Statis 06/1/26(木) 14:57 回答[未読]
【34110】Re:データーの入っている行のみコピーして... でぼっか 06/1/26(木) 16:06 質問[未読]
【34112】Re:データーの入っている行のみコピーし... ponpon 06/1/26(木) 16:18 発言[未読]
【34151】Re:データーの入っている行のみコピーし... でぼっか 06/1/27(金) 13:46 お礼[未読]
【34152】Re:データーの入っている行のみコピーして... でぼっか 06/1/27(金) 13:54 お礼[未読]

【34107】データーの入っている行のみコピーして、...
質問  でぼっか  - 06/1/26(木) 14:12 -

引用なし
パスワード
   初めて質問させて頂きます。VBA初心者、勉強中です。

過去ログ探したのですが、よく分かりませんでした。

Sheet1のA列で(A5〜A100)の範囲にデーターが入力されていますが、

データーの入っている行のみコピーして、

(データーの入る行の最終行は決まってません)

Sheet2のA列の最終データーが入っている行へ

下から順に貼り付けたいのですが。

【sheet1】     【sheet2】
  A          A
5 100       10 222 ←以前の最終行
6 124  ←コピー 11 100 
7 652       12 124 ←最終行(A11)
8         13 652  より下に
.         14    貼り付け
.         15
100

宜しくお願い致します。

【34108】Re:データーの入っている行のみコピーし...
回答  Statis  - 06/1/26(木) 14:57 -

引用なし
パスワード
   こんにちは
こんな感じです。

Sub test()

On Error Resume Next
Worksheets("Sheet1").Range("A5:A100") _
 .SpecialCells(xlCellTypeConstants).Copy _
  Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1)
On Error GoTo 0

End Sub

【34110】Re:データーの入っている行のみコピーし...
質問  でぼっか  - 06/1/26(木) 16:06 -

引用なし
パスワード
   ▼Statis さん:

早々とお返事ありがとうございました。

今試してみたのですが、他のオブジェクトや

罫線までも一緒に貼り付けされてしまいますが、

何か手立てはございますでしょうか?

(値のみ貼り付けたいです)

宜しければお返事お願い致します m(__)m

【34112】Re:データーの入っている行のみコピーし...
発言  ponpon  - 06/1/26(木) 16:18 -

引用なし
パスワード
   こんにちは。

PasteSpecialをHELPで調べてみましょう。

【34151】Re:データーの入っている行のみコピーし...
お礼  でぼっか  - 06/1/27(金) 13:46 -

引用なし
パスワード
   ▼ponpon さん:
>こんにちは。
>
>PasteSpecialをHELPで調べてみましょう。

こんにちは。
調べてみました、色々条件が設定できるのですね。
勉強になりました。
又何かありましたら、宜しくお願い致します。

【34152】Re:データーの入っている行のみコピーし...
お礼  でぼっか  - 06/1/27(金) 13:54 -

引用なし
パスワード
   ▼Statis さん:
こんにちは。
お世話になりました!出来ました。
又何かありましたら、宜しくお願い致します。

8296 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free