Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5803 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5803 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free