マクロを使って範囲選択したい

　エクセルのセルにランダムに入力されたデータについて、データが入力されたセル（データが入っていない空白部分も含めて）全てを範囲選択したいのですが、マクロを利用してできますでしょうか。
　その後、コピーペーストする予定なのですが、シート全体を選択する方法は駄目です。あと、空白セルも存在するので、入力された１つのセルを選択して、ｃｔｒｌ+Ｓｈｉft+*も駄目です。
　もともとのデータは、ＯＣＲソフトで読み込こんだデータをエクセルにしたものなので、基本ぐちゃぐちゃにデータが入力された状態になっています。
　わかりずらい質問かもしれませんが、回答願います。

No.3 ベストアンサー 回答者： keithin 回答日時： 2014/04/13 11:34

とりあえず

activesheet.usedrange.select
で行ってみて下さい。

この回答へのお礼

　ありがとうございまいした。希望通りの選択が行えました。
　

お礼日時：2014/04/13 14:20

No.2 回答者： mshr1962 回答日時： 2014/04/13 10:34

＞入力された１つのセルを選択して、ｃｔｒｌ+Ｓｈｉft+*も駄目です。

データの右端までの選択なら

Ctrl+Shift+End

です。

ノートPCの場合は

Ctrl+Shift+Fn+→

とEndキーがFn+→になりますけど。。。

この回答へのお礼

　右端までの選択では意味がありません。私の質問の仕方がうまくなく上手に伝えられずすいません。
　回答ありがとうございました。

お礼日時：2014/04/13 14:19

No.1 回答者： tom04 回答日時： 2014/04/13 10:12

こんにちは！

一例です。

Sub Sample1()
Dim lastRow As Long, lastCol As Long
If Range("A1") = "" Then
Range("A1") = "ダミー"
End If
With ActiveSheet
lastRow = .UsedRange.Rows.Count
lastCol = .UsedRange.Columns.Count
Range(.Cells(1, "A"), .Cells(lastRow, lastCol)).Select
End With
End Sub

※　A1セルにデータがない場合、最終行・最終列が正しく取得できないので、
A1セルにダミーを置かせてもらっています。m(_ _)m

この回答へのお礼

　さっそくコードを使用させていただきました。
　かなり希望に近い状況ではあるのですが、A１セルからの選択でなく、データが入力されている範囲のみ選択をしたいのです。
　回答ありがとうございました。

お礼日時：2014/04/13 14:17