検索セルの隣を返す」という検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。RangeオブジェクトのFindメソッドを使ってセルを検索したときに、その隣のセルを表すRangeオブジェクトを取得するには、どのようなオブジェクト式を書けばいいのかを探している方による検索でしょうか。隣のセルに限らず、あるセルから、指定した行数や列数だけずれた位置にあるセルを取得するには、RangeオブジェクトのOffsetプロパティを使うのが便利です。Offsetプロパティの第1引数には何行シフトするのか、第2引数には何列シフトするのか、整数で指定します。右隣のセルを取得するのなら、Offsetプロパティの第1引数に「0」を、第2引数に「1」を指定してください。左隣のセルを取得するのなら、Offsetプロパティの第1引数に「0」を、第2引数に「-1」を指定してください。具体例をあげましょう。検索した隣のセルの内容を表示」といった検索でも、このサイトへのアクセスがありますので、そんなマクロを作ってみました。以下のようなマクロで、検索した隣のセルの値を取得してメッセージボックスに表示することができます。"みつかりませんでした。Range("B:B").Find("北海道")みつからなかった場合には「みつかりませんでした。"みつかりませんでした。"みつかった場合には右隣のセルの値がメッセージボックスに表示されます。1)」というオブジェクト式が、検索した右隣のセルを表すRangeオブジェクトを取得している部分で、そのRangeオブジェクトのValueプロパティを使って、検索したセルの右隣のセルの値を取得しています。-1).Valueにすれば、左隣のセルの値がメッセージボックスに表示されるようになります。Range.Offsetプロパティの第2引数に「-1」に指定されているので、検索されたセルの「-1」隣すなわち左隣のセルを表すRangeオブジェクトを取得することになります。検索した隣に文字を入力」といった検索でも、このサイトへのアクセスがありますので、そんなマクロも作ってみました。以下のようなマクロにすれば、検索した隣のセルを取得して値を入力できます。"みつかりませんでした。Sub先のマクロと違うのは、みつかった場合には右隣のセルに「←ここだよ!」という文字列を入力する部分だけです。1)」というオブジェクト式が、検索した右隣のセルを表すRangeオブジェクトを取得している部分で、そのRangeオブジェクトのValueプロパティを使って、今度は検索したセルの右隣のセルに値を入力しています。オブジェクト式解説編』を開催します。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。