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

質問

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

回答No.3

keithin · ベストアンサー

とりあえず
activesheet.usedrange.select
で行ってみて下さい。

お礼

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

回答No.2

mshr1962

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

Ctrl+Shift+End

です。

ノートPCの場合は

Ctrl+Shift+Fn+→

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

お礼

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

回答No.1

tom04

こんにちは！
一例です。

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１セルからの選択でなく、データが入力されている範囲のみ選択をしたいのです。
　回答ありがとうございました。