Excel VBA について

質問

ExcelのVBAのコードでB列の１カ所の「zz2300」を取得したいのですが、
どういう記述をすればよろしいのでしょうか。
※その列には同じ文字は存在しません。

test＝Range("b65535").End(xlUp).Rowの定義があるのですが使えますか？

回答No.3

Prome_Lin · ベストアンサー

もし、「Ｂ」列以外の列には「zz2300」が全く存在しない、そのシートに「zz2300」は１個だけ、なら、

Sub Test_01()
MsgBox (Cells.Find(”zz2300”).Row)
End Sub

だけで、何行目にあるか表示できます。

しかし、他の列に「zz2300」が存在する可能性があるのでしたら、

Sub Test_01()
MsgBox (Range("B:B").Cells.Find("zz2300").Row)
End Sub

Range("B:B")で、「Ｂ」列を範囲指定します。

なお、「test＝Range("b65535").End(xlUp).Row」というのは、エクセルが持っている一番下の行（エクセルに入力可能な最終行）からデータが存在する一番下の行を調べて、その行を「test」に代入しています

例えば、Ａ列縦に「１、２、３」と入っていて、４行目は空白、５行目からまた「５、６」と入っているとします。

このとき、「Range("A1").End(xlDown).Row」とすると、１行目から調べて、空白行が見つかる前の行「３」を返します。

これでは、実際の「６」が返ってこないので、エクセルの一番下の行から上へ調べるのが、
Range("b65535").End(xlUp).Row
ですが、エクセルによって、持っている最終行は異なりますので（「65535」はエクセル2003）、数値で指定せず、
Cells(Rows.Count, 2).End(xlUp).Row
というように、「Rows.Count」を用います。

これで、エクセルのバージョンに関係なく、また、数値を覚えなくても、すべてのエクセルの最終行が指定されます。

「Rows.Count」の横の「２」は「Ｂ」列のことです。

これで、そのバージョンのエクセルで利用できる最終行から上（xlUp）に向かってRow「行」を調べられます。

お礼

回答ありがとうございます。
大変助かりましたありがとうございます。

回答No.2

NuboChan

例えば

Sub B列からb65535という文字列を探して行番号を取得する()
　row_num = Range("B:B").Find("b65535").Row
End Sub

お礼

回答ありがとうございます。
参考にさせていただきます。

回答No.1

ushi2015

こんにちは

Find とか、Application.Match が使えます。

お礼

回答ありがとうございます。
参考にさせていただきます。