アクティブセルと同列の最下段セル選択

質問

セルの範囲選択のやり方で悩んでいます。
アクティブになっているセルから、それと同列に有る文字・数値が入力された最下段のセルまでを範囲指定したいのです。
その際にセルは結合されている場合と、そうでない場合があります。

取得したセルアドレスは他にも使用したいので、出来る事ならアクティブセルと最下段のセルアドレスを別々に取得してから、その値を使って範囲指定できるようにしたいです。
宜しくお願い致します。

回答No.2

onlyrom · ベストアンサー

方法はいくつかありますが。。

'-----------------------------------
Sub test()
　Dim LastCell As Range
　Dim myRange As Range

　Set LastCell = Cells(Rows.Count, ActiveCell.Column).End(xlUp)
　Set myRange = Range(ActiveCell, LastCell)

　myRange.Select
End Sub
'-----------------------------------

最終セル：LastCell
取得範囲：myRange

以上。

お礼

早速のご回答ありがとうございます。

私の作る型に近いのでこちらを使わせていただきます。

回答No.1

redfox63

Excelの最大行のセルからEndメソッド使って最下行を探します

' 調べたい列番号をつかって最終セルを取得
Function GetMaxRow(nColumn as Integer) as Range
　　dim n as Long
　　n = Range("A:A").Rows.Count
　　Set GetMaxRow = Cells( n, nColumn ).End( xlUp )
End Function

呼び出し元
Sub Macro1()
　　dim r as Range
　　set r = GetMaxRow( ActiveCell.Column )
　　if r.addRes(0,0) <> ActiveCell.Address(0,0) then
　　　　Range( r, ActiveCell ).Select
　　end if
End Sub
といった具合です