
A列に名前が入力されています。
同姓同名のセルを把握し、その行の情報を取得したいと思い、下記のコードを作成しました。
しかしなぜか、行の情報が上から表示してくれず、途中の情報から表示が始まり、その後上から表示されます。
上から順に表示される様にしたいのですが、コードをご教授願えませんでしょうか。
Private Sub CommandButton1_Click()
Dim 人物名 As Range
Dim 最初に見つかった人物 As Range
Dim 結果 As Range
Set 人物名 = Cells.Find(What:="佐藤 太郎", SearchOrder:=xlByColumns) ’上から検索としてみたのですが・・・
Set 最初に見つかった人物 = 人物名
Set 結果 = 人物名
Do
Set 人物名 = Columns(1).FindNext(人物名)
If 人物名.Address = 最初に見つかった人物.Address Then
MsgBox 最初に見つかった人物.Row
Exit Do
Else
Set 結果 = 人物名
MsgBox 結果.Row
End If
Loop
End Sub

No.3ベストアンサー
- 回答日時:
No.1です。
例えばこんなデータで
行 A列
1 a
2 a
3 a
4 a
5 a
Sub megu()
Dim r As Range
Dim st As String
Set r = Range("A:A").Find("a") '無指定
If Not r Is Nothing Then
st = r.Address
Do
Debug.Print r.Row
Set r = Range("A:A").FindNext(r)
If r.Address = st Then Exit Do
Loop
End If
Set r = Nothing
Debug.Print "---"
Set r = Range("A:A").Find("a", After:=Range("A" & Rows.Count)) '指定あり
If Not r Is Nothing Then
st = r.Address
Do
Debug.Print r.Row
Set r = Range("A:A").FindNext(r)
If r.Address = st Then Exit Do
Loop
End If
Set r = Nothing
End Sub
結果:
2
3
4
5
1
---
1
2
3
4
5
この違いって事ですよね?
そうです。これが実現したかった事です。「FindNext」を使うのがポイントだったんですね。調べたら「FindNextメソッドは引数で指定したセルの直後のセルから検索」と書いてありました。
ご指導ありがとう御座いました。
No.2
- 回答日時:
こんにちは
多分仕様を勘違いなさっているものと思います。
FINDメソッドの場合、afterが無指定の場合は範囲の最初のセルとみなしますので、最初のセルがヒットしている場合は、「2番目のヒットが最初にヒット」することになります。
最初のセルがヒットしていない場合は、実質的に「最初のセルがヒット」することになるので、多分、ご期待通りになるものと思います。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
※ どうせなら直感的な仕様にして欲しいものですが、そこがM$さんお得意の「仕様です」なので・・・
No.1
- 回答日時:
>Set 人物名 = Cells.Find(What:="佐藤 太郎", SearchOrder:=xlByColumns)
Findメソッドは余り省略すると予期しない動きをしますからね。
検索開始セルを指定するとその次のセルから検索しますから、この場合(指定してない)正常に動いてはいますけどね。
Set 人物名 = Cells.Find(What:="佐藤 太郎", After:=Range("A" & Rows.Count), SearchOrder:=xlByColumns)
かな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel UserForm の表示位置
-
特定の色のついたセルを削除
-
Excelで空白セル直前のセルデー...
-
Excel-VBA セルのデータ書出し(Q2)
-
データグリッドビューの結合セ...
-
VBA:日付を配列に入れ別セルに...
-
VBAマクロ実行時エラーの修正に...
-
【Excel VBA】一番右端セルまで...
-
C# DataGridViewで複数選択した...
-
データのある範囲を選択するVBA...
-
【VBA】写真の貼り付けコードが...
-
Excel2003 VBA 「*」を含む文字...
-
ユーザフォームを使ってのデー...
-
[Excel VBA] このコードでは行...
-
EXCELのフォーム上でリアルタイ...
-
CellEnterイベント仕様について
-
DataGridViewでグリッド内に線...
-
VBA 検索結果の行を取得。上か...
-
エクセルのカーソルを非表示に...
-
DataGridViewのフォーカス遷移...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
特定の色のついたセルを削除
-
Excelで空白セル直前のセルデー...
-
エクセルVBA 配列からセルに「...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
複数指定セルの可視セルのみを...
-
C# DataGridViewで複数選択した...
-
【Excel VBA】マクロで書き込ん...
-
データグリッドビューの結合セ...
-
DataGridViewのフォーカス遷移...
-
Excel 範囲指定スクショについ...
-
【Excel VBA】一番右端セルまで...
-
EXCEL VBA 文中の書式ごと複写...
-
【VBA】写真の貼り付けコードが...
-
QRコード作成マクロについて
-
入力規則のリスト選択
-
CellEnterイベント仕様について
-
エクセル、マクロで番号を読込...
おすすめ情報