Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8298 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：
こんにちは。
お世話になりました！出来ました。
又何かありましたら、宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8298 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free