Excel VBA質問箱 IV

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

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


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

64477 / 76738

←次へ　｜　前へ→


	【16841】選択エリアをカット＆ペーストする場合（続）

ackkn - 04/8/11(水) 17:35 -


	引用なし

	パスワード

どなたかご教示下さい、よろしくお願いします。
あるエリアを選択して、カット＆ペースト(他のシートへ)する場合、Selection.cutして下記のコードでスマートにペーストまではいきましたが、ペースト先のシートがペーストの度に行が増えるので、その最下行にペーストする必要があり、下記のコードで実現できましたが、Selection.cut のスマートさが半減しているような気がします。（波線部分）
要は、最下行を指定してペーストする方法が満足できません。
（Row_Ct = ... の行を、Selection.Cut の行に入れたい、入る気がする）
よろしくお願いします。

　　Dim Row_Ct As Long
　　Row_Ct = Worksheets("TEST").Range("A65536").End(xlUp).Row + 1
　　Selection.Cut _
　　　　Destination:=Worksheets("TEST").Range("A" & Row_Ct)
　　　　　　　　　　　　　　　　　　　　　　　~~~~~~~~~~~~~
　　Selection.Delete (xlShiftUp)
　　ActiveCell.Select

0 hits

▼

【16841】選択エリアをカット＆ペーストする場合（続） ackkn 04/8/11(水) 17:35

≪