検索した単語から最終行まで

質問

Excel　VBAで教えてください。
例えば”日本"という単語を検索し、その最終行までを取得する
コードの書き方が分かりません。
教えてください。
宜しくお願い致します。

回答No.1

KURUMITO · ベストアンサー

Ａ列なら例えば次のようにします。

Sub 検索()
Dim xRange As Range
Dim fPlace As String
Dim i, n As Long
Dim xMoji As String
xMoji = "日本"
n = Range("A65536").End(xlUp).Row
Set xRange = Range(Range("A1"), Range("A" & n)).Find(What:=xMoji)
If Not xRange Is Nothing Then
i = xRange.Row
MsgBox i & "行から" & n & "行目で"
End If
End Sub

お礼

ありがとうございました。
考え方が分かり、助かりました。

回答No.2

tom04

こんにちは！
一例です。

「日本」というセルはどこにあっても構いませんが、複数は存在しない！という前提です。
（その列の「日本」から最終行までを「選択」しています）

Sub Sample1()
Dim i As Long, c As Range
Set c = Cells.Find(What:="日本", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
With c
i = Cells(Rows.Count, .Column).End(xlUp).Row
Range(Cells(.Row, .Column), Cells(i, .Column)).Select
End With
Else
MsgBox "該当データなし"
End If
End Sub

こんな感じではどうでしょうか？m（_ _）m

お礼

ありがとうございました。
考え方が分かり、助かりました。