Excel VBA質問箱 IV

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

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


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

【25673】範囲指定の仕方? COM 05/6/10(金) 13:57 質問[未読]
【25674】Re:範囲指定の仕方? ぴかる 05/6/10(金) 14:36 回答[未読]
【25676】Re:範囲指定の仕方? COM 05/6/10(金) 16:04 発言[未読]
【25677】Re:範囲指定の仕方? ぴかる 05/6/10(金) 16:17 回答[未読]
【25678】Re:範囲指定の仕方? COM 05/6/10(金) 16:23 お礼[未読]

【25673】範囲指定の仕方?
質問  COM  - 05/6/10(金) 13:57 -

引用なし
パスワード
   こんにちは
A〜F列までデータが入っていて1行めにはタイトルが入っていて2行目から必要なデータが入ってます。2行めから最終行までのアクティブなセルを指定して新しいブックにコピーをしたいのですが、Offset関数を利用したのですが、最終行の下の空白の行まで指定してしまいました。
アクティブなセルだけを指定する方法を教えて下さい。
よろしくお願いしますm(__)m

【25674】Re:範囲指定の仕方?
回答  ぴかる  - 05/6/10(金) 14:36 -

引用なし
パスワード
   COMさん、こんにちは。

A1セルを選択して、[Shift][Ctrl][*]キーを同時に押すと、データ範囲が選択されます。
マクロにしたんが、↓です。いかがでしょ?
  Range("A1").CurrentRegion.Select

【25676】Re:範囲指定の仕方?
発言  COM  - 05/6/10(金) 16:04 -

引用なし
パスワード
   ぴかるさんこんにちわ。
早速の回答ありがとうございます。
>マクロにしたんが、↓です。いかがでしょ?
>  Range("A1").CurrentRegion.Select
試してみたのですがアクティブなセル全部をコピーしてしまいます。
A2から最終行までのデータをコピーしたいです。
>A1セルを選択して、[Shift][Ctrl][*]キーを同時に押すと、データ範囲が選択されます。
を参考にさせて頂き、A2セルを選択して、[Shift][Ctrl][↓]キーを同時に押してその後
、[Shift][Ctrl][→]を押すというのを自動記録して、
  Range("A2").Select
  Range(Selection, Selection.End(xlDown)).Select
  Range(Selection, Selection.End(xlToRight)).Select
にしたらうまくいきました。
でもこのコードをまとめる事は出来ないのしょうか?
よろしくお願いします。

【25677】Re:範囲指定の仕方?
回答  ぴかる  - 05/6/10(金) 16:17 -

引用なし
パスワード
   こんなんかな?

  Range(Cells(2, 1), Cells(Range("A2").End(xlDown).Row, Range("A2").End(xlToRight).Column)).Copy

【25678】Re:範囲指定の仕方?
お礼  COM  - 05/6/10(金) 16:23 -

引用なし
パスワード
   ぴかるさん
ありがとうございました。
おかげでスッキリしたコードになりました。
今後ともよろしくお願いします。

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