Excel VBA質問箱 IV

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

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


5802 / 13645 ツリー ←次へ | 前へ→

【48774】条件でコピー つまみ 07/5/7(月) 22:39 質問[未読]
【48776】Re:条件でコピー ウッシ 07/5/7(月) 23:40 発言[未読]
【48793】Re:条件でコピー つまみ 07/5/8(火) 22:04 お礼[未読]

【48774】条件でコピー
質問  つまみ  - 07/5/7(月) 22:39 -

引用なし
パスワード
   毎回データ行数が違うsheet1のデータをコピーし別のsheet2に貼り付けをしたいのですが、複数行あるデータをコピー&ペーストは簡単にできるのですが
一行だけコピー&ペーストはエラーが出てしまいます。
これは、shift+ctrl+endキーでマクロ記録してるため、一行のときだけは、sheet
すべてを選択してしまいうまくいきません。
理想として、データのあるところまで(1行になったり3行になったりしても)コピー&ペーストというようなマクロを作成できないでしょうか?
よろしければ教えてください。


sheet1
 A   B   C D E
1名前 住所 年齢
2田中 東京 21
3
    ↓↓
sheet2
 A   B         C D E
1NEME 住んでいるところ 年齢
2田中 東京        21
3
のように2行目以降をコピーし貼り付けをしたいのです。
行数は毎回ちがい、1行の時もあれば、10行の時もある。

【48776】Re:条件でコピー
発言  ウッシ  - 07/5/7(月) 23:40 -

引用なし
パスワード
   こんばんは

表例の通りなら、これでいいと思います。

Sub test()
  With Worksheets("Sheet1")
    .Range("A1").CurrentRegion.Offset(1).Copy _
    Worksheets("Sheet2").Range("A2")
  End With
End Sub

【48793】Re:条件でコピー
お礼  つまみ  - 07/5/8(火) 22:04 -

引用なし
パスワード
   ありがとうございます。さっそく使ってみます。
▼ウッシ さん:
>こんばんは
>
>表例の通りなら、これでいいと思います。
>
>Sub test()
>  With Worksheets("Sheet1")
>    .Range("A1").CurrentRegion.Offset(1).Copy _
>    Worksheets("Sheet2").Range("A2")
>  End With
>End Sub

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