- 公開日：2016-7-15
- プロナビTOP / プログラミング初心者向け技術系ノウハウ・まとめ
ワークシート内のセルの検索を行う方法をご紹介します。何万件もデータが存在するようなシートでは目的の値をすぐに発見することができる検索機能は非常に便利ですね。以下、VBAでの設定方法について解説します。
Findによるワークシートの検索
＜ワークシート内の文字列の検索を行うコード（検索ワード：東京）＞
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Dim FindCell As Range Set FindCell = Worksheets("Sheet1").Cells.Find("東京") If FindCell Is Nothing Then '検索失敗 MsgBox "検索対象は見つかりませんでした。" Else '検索成功 MsgBox "東京は" & FindCell.Row & "行目の" & _ FindCell.Column & "列目です。" End If |
順を追ってご説明します。
1行目でRangeオブジェクトを作成し、2行目で検索を行った結果を取得しています。
2行目の検索の設定方法は以下の通りです。
例では検索をかける範囲をSheet1全体としていますが、Rangeで範囲を指定することにより特定の行や列だけに絞って検索を行うこともできます。
なお、検索対象となる文字列はFind()のカッコ内に入力します。
検索に成功した場合はRowプロパティで検索ワードが存在するセルの行数を、Columnプロパティで列数を表示しています。
＜実行例：検索成功＞
ちなみに検索ワードがシート内に見つからなかった場合はNothingという特別な値が返されます。その場合は検索に失敗したというメッセージを表示しています。
＜検索ワードを大分に変えてC列を検索するコード（2行目を変更）＞
|
1 |
Set FindCell = Worksheets("Sheet1").Columns("C").Find("大分") |
＜実行例：C列に“大分”が存在しないため検索失敗＞
まとめ
ワークシートの検索ができるようになると、データ操作の効率が飛躍的に向上します。ぜひFindの設定方法をマスターしてワークシートの分析作業に役立ててください。
プログラミングで挫折しそうなら、現役エンジニアにマンツーマンで相談してみませんか？オンラインのプログラミングスクール「TechAcademy」のメンターが対応。
この記事が気に入ったら
いいね！しよう
プロナビの最新情報をお届けします
あわせて読みたい
2016年7月7日 【VBA入門】セルを結合する方法
2017年2月2日 業務効率をアップする！コピペで動くVBA5選- 2016年12月10日 【VBA入門】For Each~Nextを使った繰り返し処理の方法
- 2016年8月19日 【VBA入門】シートを取得する方法（Worksheetオブジェクト）
- 2017年2月16日 【VBA入門】splitで文字列を分割する方法
- 2017年2月5日 【VBA入門】InStr関数で文字列を探す方法
