Excel VBA質問箱 IV

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

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


10434 / 13646 ツリー ←次へ | 前へ→

【21863】loop へるぴー 05/2/2(水) 15:01 質問[未読]
【21864】Re:loop IROC 05/2/2(水) 15:04 回答[未読]
【21867】Re:loop へるぴー 05/2/2(水) 15:07 質問[未読]
【21868】Re:loop IROC 05/2/2(水) 15:17 回答[未読]
【21871】Re:loop へるぴー 05/2/2(水) 15:44 質問[未読]
【21875】Re:loop IROC 05/2/2(水) 16:00 回答[未読]
【21881】Re:loop へるぴー 05/2/2(水) 16:36 お礼[未読]

【21863】loop
質問  へるぴー  - 05/2/2(水) 15:01 -

引用なし
パスワード
   あるシートの中の空白の行を上から探していって、見つけたらそこに今cutされている行をpasteするにはどうしたらいいですか?
loopをつかうのでしょうか?

教えてください。
お願いします。

【21864】Re:loop
回答  IROC  - 05/2/2(水) 15:04 -

引用なし
パスワード
   ActiveSheet.Paste Destination:=Range("B65536").End(Xlup).Offset(1)
とか
Range("A1").Copy Destination:=Range("B65536").End(Xlup).Offset(1)
でしょうか?

【21867】Re:loop
質問  へるぴー  - 05/2/2(水) 15:07 -

引用なし
パスワード
   ▼IROC さん:
早々のご返答ありがとうございます。
私の説明不足でした。

cutしている行は別シートにあり、それを違うシート上の上から検索して空欄の行にpasteしたいんです。

もう一度アドバイスいただけたら光栄です。

【21868】Re:loop
回答  IROC  - 05/2/2(水) 15:17 -

引用なし
パスワード
   基本的な切り取り、貼り付け等の操作はマクロの記録してください。

>上から検索して空欄の行に
とのことですが、Endプロパティの意味は分かりましたか?

セル 65536行目で Ctrl + ↑ の操作なんですけど。

【21871】Re:loop
質問  へるぴー  - 05/2/2(水) 15:44 -

引用なし
パスワード
   IROC へ
あのーぜんぜんやってることが基本的じゃないんですが。。。
基本なんですかね?これは?
あと、ENDのプロパティはわかってますよ・・・
あれを応用するんですか?
ENDプロパティのヘルプには空欄のところまでを選択するという作業がのっていますが。。。
空欄のところにいってその空欄を選択するというのはのってません・・・


▼IROC さん:
>基本的な切り取り、貼り付け等の操作はマクロの記録してください。
>
>>上から検索して空欄の行に
>とのことですが、Endプロパティの意味は分かりましたか?
>
>セル 65536行目で Ctrl + ↑ の操作なんですけど。

【21875】Re:loop
回答  IROC  - 05/2/2(水) 16:00 -

引用なし
パスワード
   >空欄のところにいってその空欄を選択するというのはのってません・・・

選択はSelectメソッドです。

というよりENDプロパティでジャンプすればSelectされますけど。

問題はそこではなくて、ENDプロパティで目的のセルにジャンプできるかどうかです。

こちらにはシートの状況が説明されていないので、
憶測で回答していることを推察してください。

【21881】Re:loop
お礼  へるぴー  - 05/2/2(水) 16:36 -

引用なし
パスワード
   ▼IROC さんへ
というよりENDプロパティでジャンプすればSelectされますけど。

誠に申し訳ございませんでした。
やっとIROCさんの言っている意味がわかりました。
ほんとに未熟者に付き合ってくださってありがとうございました。
なんとかやってみます。またわからくなったら助けてください。

本当にありがとうございました。

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