Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11303 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【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
【16842】選択エリアをカット＆ペーストする場合（...
発言  ackkn  - 04/8/11(水) 17:40 -
引用なし
パスワード
   すいません、波線がズレてしまいました。
正しくは、Range("A" & Row_Ct)の、括弧内部分です。
【16843】Re:選択エリアをカット＆ペーストする場...
回答  Asaki  - 04/8/11(水) 17:43 -
引用なし
パスワード
   こんにちは。

↓こんなもんではどうでしょうか？
Selection.Cut _
　　Destination:=Worksheets("TEST").Cells(65536, 1).End(xlUp).Offset(1)

この↓1行が良く分からんですが。。。
>Selection.Delete (xlShiftUp)
【16844】Re:選択エリアをカット＆ペーストする場...
質問  ackkn  - 04/8/11(水) 17:56 -
引用なし
パスワード
   ▼Asaki さん：
>こんにちは。
>
>↓こんなもんではどうでしょうか？
>Selection.Cut _
>　　Destination:=Worksheets("TEST").Cells(65536, 1).End(xlUp).Offset(1)
>
>この↓1行が良く分からんですが。。。
>>Selection.Delete (xlShiftUp)

Asaki さん、いつも早速のレスありがとうございます。
これこれ！、なるほどなーと感心しています。

>>Selection.Delete (xlShiftUp)
この行は、元シートの途中を選択カット＆ペーストするので、選択カットした箇所が空白で空いてしまうので選択カット部分を削除して、上へ詰めています。
これも、他に手があるのでしょうか？
【16852】Re:選択エリアをカット＆ペーストする場...
発言  Asaki  - 04/8/11(水) 23:10 -
引用なし
パスワード
   >>>Selection.Delete (xlShiftUp)
>この行は、元シートの途中を選択カット＆ペーストするので、選択カットした箇所が空白で空いてしまうので選択カット部分を削除して、上へ詰めています。
>これも、他に手があるのでしょうか？
ごめんなさい。
後から気が付いたのですが、レスしたときに、意図がよく判らなかったもので。。。
この部分に関しては、特に他の手があるとは思いません。
これで良いのではないでしょうか。
# すみません、余計な心配させました。m(_ _)m
【16853】Re:選択エリアをカット＆ペーストする場...
お礼  ackkn  - 04/8/11(水) 23:34 -
引用なし
パスワード
   ▼Asaki さん：
>>>>Selection.Delete (xlShiftUp)
>>この行は、元シートの途中を選択カット＆ペーストするので、選択カットした箇所が空白で空いてしまうので選択カット部分を削除して、上へ詰めています。
>>これも、他に手があるのでしょうか？
>ごめんなさい。
>後から気が付いたのですが、レスしたときに、意図がよく判らなかったもので。。。
>この部分に関しては、特に他の手があるとは思いません。
>これで良いのではないでしょうか。
># すみません、余計な心配させました。m(_ _)m

いえいえ、こちらこそ
いつもスマートなコードをありがとうございます。
今後ともよろしくお願いします。m(_ _)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11303 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free