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

質問

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

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

回答No.6

ja7awu · ベストアンサー

ありゃ、間違えました。

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

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

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

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

お礼

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

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

回答No.5

ja7awu

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

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

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

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

回答No.4

mizo007

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

これでどうでしょうか？

お礼

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

回答No.3

maruru01

こんにちは。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列に何か入力があると、そこまで選択してしまいます。

お礼

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

回答No.2

noname#27115

#1です。

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

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

でも OK ですね。

回答No.1

noname#27115

Sub Test()
Dim myRow As Long

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

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

お礼

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