毎日エクセル上にデータ入力などをしているとしたら、データって毎日毎日増えていっていますよね。そのデータから何かの条件を指定して検索するときに、毎日検索範囲が変わっていくとしたらその都度対象セルを修正するのは面倒ですよね。

【範囲を選択する方法】
方法その１．アクティブセル領域を判断する方法
Sub kettei1()
Dim TBL As Range
Worksheets("Sheet1").Activate: Range("A1").Select
'セルA1を含む、アクティブセル領域（空白行と空白列で囲まれたセル範囲）を選択します
Set TBL = ActiveCell.CurrentRegion
TBL.Select
End Sub
方法その２．アクティブセル領域を判断する方法（表題などを除きます）
Sub kettei2()
Dim TBL As Range
Worksheets("Sheet1").Activate: Range("A1").Select
'セルA1を含む、アクティブセル領域（空白行と空白列で囲まれたセル範囲）を選択Set TBL = ActiveCell.CurrentRegion
'1行下の位置から1行少ないところをを設定している
Set TBL = TBL.Offset(1, 0).Resize(TBL.Rows.Count - 1, TBL.Columns.Count)
TBL.Select
End Sub。

【関連情報】
(^0^)!!/ ゴールデンウィークの疲れが残っていませんか？ そこで、きょうは、やさしい内容です。 メルマガ配信の予定 火曜・木曜----通常版「関数技・スゴ技など」 土曜----マクロ講座 このメルマガは、少しでも楽にExcelが分かるようにと、 ...(続きを読む)
[PRリンク] 十字　小論文　テーピング　確率　外反母趾　ふくらはぎ　症状