• 締切済み

特定の単語を検索して その単語の2行下のセルの値を

特定の単語を検索して その単語の2行下のセルの値を変数に代入したいのですが

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

(1)>変数に代入した のと、 (2)エクセル関数では、複数列と行のセル範囲の中の、文字列の検索は難し、ので VBAでの回答をもとめているのか?明記するのが普通だろう。 それとシートの(模擬)データ例を、質問にかかげて質問すること。 これをしない質問者が多くて困る。 #1で出ている回答で、多分よいのだろうが、質問者に注文を付けたい。

  • kkkkkm
  • ベストアンサー率65% (1570/2403)
回答No.1

Dim variable As Variant Dim c As Range Set c = Range("A1:A10").Find("特定の単語", LookAt:=xlPart) If Not c Is Nothing Then variable = Cells(c.Row + 2, c.Column).Value End If A1:A10は検索するセル範囲に適宜変更してください。 部分一致は LookAt:=xlPart 全部一致は LookAt:=xlWhole

関連するQ&A

  • セルの12行目の入力用の位置に17行目・19行目を代入すると『誤』の値

    セルの12行目の入力用の位置に17行目・19行目を代入すると『誤』の値になってしまいます。 『正』の値を求めるためには、H12のセルにどのような式を入れれば良いか教えてください。

  • 特定のセルの値を返す関数を教えてください

    セルの値の検索といえばVLOOKUP関数ですが、 例えば条件にかなったセルの左上の値を返す・・・などといった 範囲が同じ行に無いものを返す関数などというのはあるのでしょうか? 知ってる方がいましたら教えてください。

  • 値を検索しその値が含まれるセルを全て表示する式

    exel2013で任意のセルに検索する値を入れA列の1行から60000行を検索し検索した値が含まれるセルをすべて表示する式、マクロを教えてください

  • Excel セルの値で行を選ぶ

    Excel セルの指定に関して質問です。 セルの値で列(行)を選択するにはどうするのでしょうか? 例えば B5に "3"が入っていたらC列(C4セル)、"4"が入っていたらD列(D4セル) を参照するというような具合に、ある特定のセルの値によって参照する列を変えたいのですが。 R1C1形式中にセルの参照をさせれば可能になりそうですが記述方法が分かりません。 よろしくお願いします。

  • 【VBA】特定の範囲で同じ値を含むセルの色を変える

    Excelのマクロに関して質問です。 特定の範囲(複数行と複数列)内で重複した値(セル内の最初の4文字が同じもの)を含むセルの色を変えたいです。 さらに、重複した値ごとに色分けをしたいです。例えば重複した値[1111]と重複した値[1112]の時では、前者が赤色で後者は青色、更に他の重複する値はまた別の色でというように、 要は、どのセルとセルが重複しているか色分けをして一目瞭然にしたいです。 ※なお特定の範囲は以下の変数を利用します。 dataRow = Workbooks(booksName).Worksheets(sheetsName).Range("A2").End(xlDown).Row 'データの入っている最終行を取得 dataColum = Workbooks(booksName).Worksheets(sheetsName).Range("A1").End(xlToRight).Column 'データの入っている最終列を取得 どなたか知恵をお貸し下さい。よろしくお願いします。

  • 【VBA】特定の範囲で同じ値を含むセルの色を変える

    Excelのマクロに関して質問です。 特定の範囲(複数行と複数列)内で重複した値(セル内の最初の4文字が同じもの)を含むセルの色を変えたいです。 さらに、重複した値ごとに色分けをしたいです。例えば重複した値[1111]と重複した値[1112]の時では、前者が赤色で後者は青色、更に他の重複する値はまた別の色でというように、 要は、どのセルとセルが重複しているか色分けをして一目瞭然にしたいです。 ※なお特定の範囲は以下の変数を利用します。 dataRow = Workbooks(booksName).Worksheets(sheetsName).Range("A2").End(xlDown).Row 'データの入っている最終行を取得 dataColum = Workbooks(booksName).Worksheets(sheetsName).Range("A1").End(xlToRight).Column 'データの入っている最終列を取得 どなたか知恵をお貸し下さい。よろしくお願いします。.

  • 【VBA】特定の範囲で同じ値を含むセルの色を変える

    Excelのマクロに関して質問です。 特定の範囲(複数行と複数列)内で重複した値(セル内の最初の4文字が同じもの)を含むセルに色をたいです。 さらに、重複した値ごとに色分けをしたいです。例えば重複した値[1111]と重複した値[1112]の時では、前者が赤色で後者は青色、更に他の重複する値はまた他の色でというように、 要どのセルとセルが重複しているか色分けをして一目瞭然にしたいです。 ※なお特定の範囲は以下の変数を利用します。 dataRow = Workbooks(booksName).Worksheets(sheetsName).Range("A2").End(xlDown).Row 'データの入っている最終行を取得 dataColum = Workbooks(booksName).Worksheets(sheetsName).Range("A1").End(xlToRight).Column 'データの入っている最終列を取得 どなたか知恵をお貸し下さい。よろしくお願いします。

  • EXCEL 行の指定について

    行の数値を代入する方法を教えてください。 例えば, =SUM(F20:F38) を求めるために20、38を変数としたいのですが、  |A  |B  |C  |D 1|20  |38  |   | 2|   |   |   | 3|   |   |   | そこで、行の値を他のセルから 参照したい。 つまり、 =SUM(F〔A1〕:F〔B1〕) ←※わかりやすいように書きました。       ↓   ↓       20   38 このように行の値を別のセルから 参照して代入する方法はあるのでしょうか?? 宜しくお願いします。 ・・・わかりやすく説明できたかな?? 理解しづらかったら、すいません。

  • EXCELで行内最小値を検索し、その最小値の入っているセルの同じ列の"1"行の値を返したいのですが。。。

    EXCELに疎いので、わかる方がいたら教えてください。 行いたいことは以下の通りです。 1: EXCELの各行で最小値を検索します。    (値自体はMIN関数で検索できるのですが。。。) 2: 各行において、その最小値の入っているセルの一つ上のセルの値を   返す。 わかりにくいと思うので、例をのせておきます。 *|ABCDEF ----------- 1|*35478 2|*41269 3|*75926 4|*24653 5|*31428 (*は空欄を表します。) という行列があったときに、2行め以降に対し、最小値を検索(2行目であれば、1)し、 そのセルの1行目の値(2行目であれば、"1C"の値である5)を返すということを行いたいのです。。。 上の行列を例にすると以下のようなA列の値を返したいのですが。 *|ABCDEF ----------- 1|*35478 2|541269 3|775926 4|324653 5|531428 (*は空欄を表します。) 別のシートを利用するなど、複雑な方法になってしまっても良いので、 何か知恵のある方がいらっしゃいましたら、よろしくお願い致します。

  • Excel(2000)で行毎にセルをみて、値を返す

    例えば、以下のようなデータがあったとして、各行毎に左から見た結果、最初にデータがあったセルの列の1行のセルの値を各行のG列に返したい。 ______A__B__C__D__E__F__G__ 1行_ア__イ__ウ__エ__オ__カ____ 2行_1__3__5__2__4__1__ア__ 3行_____2__5__1__5__4__イ__ 4行_____________2__8__2__エ__ 5行_____2______2__1__4__イ__ 6行_________5______2______ウ__ G列に結果。 例えば、G3のセルに何らかの関数を入れて、A3~F3を左から見た結果、B3に2というデータがあるので、その列の1行であるB1の値、イをG3に返すといったないようです。 _ は、スペースをとるためのものです。 実際のデータは500行あり、各行の検索する列数は23列あります。 よろしくお願い致します。

専門家に質問してみよう