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 質問
【16842】選択エリアをカット&ペーストする場合(続... ackkn 04/8/11(水) 17:40 発言
【16843】Re:選択エリアをカット&ペーストする場合... Asaki 04/8/11(水) 17:43 回答
【16844】Re:選択エリアをカット&ペーストする場合... ackkn 04/8/11(水) 17:56 質問
【16852】Re:選択エリアをカット&ペーストする場合... Asaki 04/8/11(水) 23:10 発言
【16853】Re:選択エリアをカット&ペーストする場合... ackkn 04/8/11(水) 23:34 お礼

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