エクセルVBA 一番端のセルの求め方について

Question

エクセル2003VBAを使ったプログラミングをしています。
シートにデータが入っていますが途中入っていないセルが多々ある状況です。
このような場合、
１．データの入っている一番したの行の行番号を取り出す方法
２．ある行で一番右側でデータの入っているセルの位置を取り出す方法
はありますでしょうか？
データが続いている（空の行等がない）場合は
Range("A1").CurrentRegion.rows.Count
で出せることはわかっているのですが、違う表のようにデータがあちこちにあるという状況です。

何かいい方法がありましたら教えてください。
よろしくお願いいたします。

izmlz · Accepted Answer

↓は、数式あるいは値が入力されているものを最終セルとして取得します。書式が何か設定されていても、それを最終セルとは認識しません。

＞１．データの入っている一番したの行の行番号を取り出す方法

Sub test()
　Dim Rng1 As Range
　Dim Rng2 As Range
　
　Set Rng1 = Cells
　
　With Rng1
　　Set Rng2 = .Find(What:="*", after:=.Cells(1), LookIn:=xlFormulas, _
　　Searchorder:=xlByRows, SearchDirection:=xlPrevious)
　End With
　If Not Rng2 Is Nothing Then
　　MsgBox "データの入っている一番したの行の行番号は" & Rng2.Row & "です。"
　Else
　　MsgBox "データが何も入力されていません。"
　End If
End Sub

＞２．ある行で一番右側でデータの入っているセルの位置を取り出す方法

Sub test2()
　Dim Rng1 As Range
　Dim Rng2 As Range
　
　Set Rng1 = Rows(5)

　With Rng1
　　Set Rng2 = .Find(What:="*", after:=.Cells(1), LookIn:=xlFormulas, _
　　Searchorder:=xlByRows, SearchDirection:=xlPrevious)
　End With
　If Not Rng2 Is Nothing Then
　　MsgBox Rng1.Row & "行で一番右側でデータの入っているセルの位置は" & Rng2.Column & "列目です。"
　Else
　　MsgBox "データが何も入力されていません。"
　End If　
End Sub

参考URL：http://www2.odn.ne.jp/excel/waza/macro.html

izmlz · Answer

ANo.4で回答したものです。
ANo.4は補足でおっしゃった↓の二つの条件をクリアしているマクロです。試してみてください。


＞書き忘れてしまいましたがセルにはすべて（データの入っていないセルも）罫線が入っています。
＞その中で、値が入っているセルもしくは背景色が指定されているセルの末端位置を特定したいのです。

＞データがばらばらに入っているためＡ列の一番下が全体の一番下の行かわからない状態です。
＞何列目が一番下の行まで入力されているかわからない状態です。

okormazd · Answer

こんなのどうですか。

Sub get_right_bottom_cell()

Dim lastcell As Range, rightcell As Range, bottomcell As Range
Dim rr As Integer, rc As Integer, rb As Integer, cb As Integer

    Set lastcell = Selection.SpecialCells(xlCellTypeLastCell)
    
    Set rightcell = Range(lastcell.Address).End(xlUp)
    Set bottomcell = Range(lastcell.Address).End(xlToLeft)
    
'    rr = rightcell.Row
'    cr = rightcell.Column
'    rb = bottomcell.Row
'    cb = bottomcell.Column
'
'    Debug.Print rr, cr, rb, cb
'
'    MsgBox rightcell.Address & " " & bottomcell.Address
    
    Union(rightcell, bottomcell).Select
    
End Sub

コメント行は必要なものを選んでください。

hallo-2007 · Answer

以下のコマンドでは
Range("B65536").End(xlUp).Activate
B列に最後（65536行目）から上移動して空白でない行
Range("IV2").End(xlToLeft).Activate
2列名の最後の列（IV)から左へ移動して空白でない列

n-jun · Answer

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_cell.html
参考になるかと

エクセルVBA 一番端のセルの求め方について

↓は、数式あるいは値が入力されているものを最終セルとして取得します。

ANo.4で回答したものです。

こんなのどうですか。

以下のコマンドでは

この回答への補足

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

　↓は、数式あるいは値が入力されているものを最終セルとして取得します。