エクセルで表のある列を最初から最後まで選択するマクロ

今現在、シートにA3:E700までの大きな表があります。
中のデータは文字列や数値です。
A列B列には途中に空白はありません。C～E列には空白もあります。
この表のB列だけを選択するマクロを書きたいのですが、データは日々増減するため最終行が特定できません。

どのように書けばいいのでしょうか？

No.1 回答者： noname#27115 回答日時： 2003/10/08 17:27

Sub Test()

Dim myRow As Long

myRow = Range("B1:B1").CurrentRegion.Rows.Count

Range("B1:B" & pRow).Select
End Sub

この回答へのお礼

さっそくありがとうございました。
出来ました！

お礼日時：2003/10/09 13:13

No.2 回答者： noname#27115 回答日時： 2003/10/08 17:31

#1です。

単に無条件にB列だけの選択というのであれば、

Sub Test()
Columns("B").Select
End Sub

でも OK ですね。

No.3 回答者： maruru01 回答日時： 2003/10/08 17:34

こんにちは。

maruru01です。

Range("B1:B" & Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row).Select

です。
ActiveSheet.Rows.Countはエクセルの最大行数で、Excel2000なら、65536です。
したがって、

Range("B1:B" & Range("B65536").End(xlUp).Row).Select

でもOKです。
なお、データ最終行より下のB列に何か入力があると、そこまで選択してしまいます。

この回答へのお礼

さっそくありがとうございました。
出来ました！

お礼日時：2003/10/09 13:13

No.4 回答者： mizo007 回答日時： 2003/10/08 17:36

Worksheets("Sheet1").Activate

ActiveSheet.Range("B3", ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)).Select

これでどうでしょうか？

この回答へのお礼

ありがとうございました。
ざんねんながら別の部分まで選択されてしまいました。

お礼日時：2003/10/09 13:16

No.5 回答者： ja7awu 回答日時： 2003/10/08 18:38

> シートにA3:E700までの大きな表があります

> A列B列には途中に空白はありません。

この条件を組み入れて、簡潔に記述すると次のようになると思います。

Range("B3", Range("B2").End(xlDown)).Select

ただし、表に１行以上のデータ(見出しでも)があるものとします。

No.6 ベストアンサー 回答者： ja7awu 回答日時： 2003/10/08 18:41

ありゃ、間違えました。

> シートにA3:E700までの大きな表があります
> A列B列には途中に空白はありません。

この条件を組み入れて、簡潔に記述すると次のようになると思います。

Range("B3", Range("B3").End(xlDown)).Select

ただし、表に１行以上のデータがあるものとします。

この回答へのお礼

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

これでやったら、表より下に別のデータがあっても大丈夫でした。
助かりました。

お礼日時：2003/10/09 13:18