エクセルのマクロで範囲を選択してみまひょわ。

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

これをマクロを使って解決はでけへんのでっしゃろか？



データは、１行に１データで入力されていっとるものとしまんねん。



【範囲を選択する方法】

方法その１．アクティブセル領域を判断する方法

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

■送料無料■TVドラマ サウンドトラック CD【鹿男あをによし】 08/3/5発売
	商品価格：2,625円 レビュー平均：4.8

フジテレビ系ドラマ 鹿男あをによし オリジナル・サウンドトラック
	商品価格：2,625円 レビュー平均：4.8