Excel VBA質問箱 IV

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

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


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

10638 / 76734

←次へ　｜　前へ→


	【71642】Re:任意のアクティブセルを基点として、その下に２行挿入する

ushineko

- 12/3/23(金) 19:31 -


	引用なし

	パスワード

▼hint さん：
本当にいろいろありがとうございます。
ご指摘の通りにしたら、ともかくコピー出来ました。

ところが、myrange1への格納の仕方に問題があるようで、貼り付いたセルから下のデータが全て消えてしまうのです。（空白が張り付いて形？）
解決方法として、格納の内容は変更せず、一旦、コピー先のシートの一番下の行にmyrange1の内容をコピーし、その上で、そのB:E２行分を切り取って、myrange = ActiveCellの下のセルへまとめてpasteをしようと思うのです。
シートの一番下の行にコピーされるところまではいくのですが、その後、コピーされたB:E２行分を範囲指定する方法がわからないのです。

苦し紛れに、下のような書き方をしましたが、当然エラーになってしまいます。

Sheets("CARGO DATA").Select
Set myrange1 = Range("B2:E2" & [E65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible)

Sheets("P3").Select
　　Range("B65536").End(xlUp).Offset(1).Select
　　myrange1.Copy Destination:=Worksheets("P3").Range("B65536").End(xlUp).Offset(1)

　　Range("B65536").End(xlUp).Offset (-2): Range("E65536").End(xlUp).Select
　　Selection.Cut
　　myrange.Offset(1).Select
　　ActiveSheet.Paste
　
度々お手数ですが、宜しくお願いします。

13 hits

▼

【71573】任意のアクティブセルを基点として、その下に２行挿入する ushineko 12/3/19(月) 17:54