人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

EXCELのVBAです。

(1)H列にあるデータのうち、文字列「aaa」に一致する行番号を取得

(2)H列にあるデータのうち、文字列「aaa」に一致するセル番地を取得

以上です。

以上の2つのコードが書ける方のみ、ご回答ください。

●質問者: kitatom
●カテゴリ:コンピュータ インターネット
✍キーワード:AAA Excel VBA コード セル
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● gong1971
●60ポイント ベストアンサー

両方同時に求めてます。不要な方は削除すればOKです。

((1)rs.Row / (2)rs.Address)ついでに総数も求めてみました。

(行番号とセル番地は一致する数だけ表示し最後に総数を表示)

結果は Debug.Print でイミディエイトウィンドウに出力しています。

参考までに範囲内に1つしか無いという前提であれば、Macro2を使用してください。

Sub Macro1()
 
 Dim rs As Range
 Dim tr As Long
 Dim i As Integer
 
 Set rs = Columns("H:H").Find(What:="aaa", LookIn:=xlValues, LookAt:=xlWhole)
 Do Until rs Is Nothing
 rs.Activate
 i = i + 1
 tr = rs.Row
 Debug.Print rs.Row; rs.Address 'ここで出力
 Set rs = Columns("H:H").FindNext(After:=ActiveCell)
 If rs.Row < tr Then Exit Do
 Loop
 Debug.Print "総数:" & i 'ここで出力
 
End Sub
Sub Macro2()
 
 Dim rs As Range
 
 Set rs = Columns("H:H").Find(What:="aaa", LookIn:=xlValues, LookAt:=xlWhole)
 If Not rs Is Nothing Then
 Debug.Print rs.Row; rs.Address 'ここで出力
 End If
 
End Sub
◎質問者からの返答

最初の質問にBugがありました。失礼しました。ご回答ありがとうございました。完璧です。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ