空欄のある表の範囲を選択するには？

空欄のある表の範囲を選択するには？

diogenes412323さん

2014/6/206:01:35

空欄のある表の範囲を選択するには？

空欄のある表があります。
この表を選択するにはどうしたらいいのでしょうか？
コードを書いて欲しいです。

補足罫線では囲ってはいません

Dim saisyuuretsu As Long
Dim saisyuugyou As Integer
saisyuuretsu = Worksheets("Sheet1").UsedRange.Rows.Count
saisyuugyou = Worksheets("Sheet1").UsedRange.Columns.Count
Range(Cells(1, 1), Cells(saisyuugyou,saisyuuretsu)).Select
ではうまくいきませんでした。どこが悪いのでしょうか？

閲覧数：

59

回答数：

2

お礼：

50枚

susonojuunin_aさん

2014/6/212:02:38

＞空欄のある表があります。
この表を選択するにはどうしたらいいのでしょうか？

そもそも、ここでおっしゃっている表って何ですか。
あらかじめ決められた範囲（wRange）の表があって、その表の中に空欄があるかということでしょうか。
ならば、下記はどうでしょう。

If Not wRange.Find("", LookAt:=xlWhole) Is Nothing Then wRange.select

 

prsk5486さん

2014/6/208:50:43

あらかじめ罫線で囲っているのが前提です。

Sub test()
Worksheets("売上").UsedRange.Select
End Sub

http://ks.c.yimg.jp/res/chie-ans-329/329/840/030/i320