まとめて検索して表示する方法

http://www.wanichan.com/office365/mac/excel2016/02/09.html

「ブック内のデータを検索するには」を見ると

「Mac版には［すべて検索］オプションがありません。」との事。

私はWindows8.1+Excel2013ですのでMACで動くか分かりませんが、

下記のようなマクロにしたら如何でしょう？

Sub 全て検索マクロ()    'セルに着色しアドレスを別シートに記入

    Dim msg As Variant

    Dim kensakuti As String

    Dim c As Range

    Dim firstAddress As String

    Dim doko() As Variant

    Dim k As Long

    Dim i As Long

    kensakuti = InputBox("検索するワードは?")

    Sheets("Sheet1").Select

    With Sheets("Sheet1").UsedRange

        .Cells.Interior.Pattern = xlNone

        Set c = .Find(kensakuti, LookAt:=xlPart)'完全一致なら xlWhole

        If Not c Is Nothing Then

            firstAddress = c.Address

            Do

                k = k + 1

                ReDim Preserve doko(k)

                doko(k) = c.Address

                c.Interior.Color = vbYellow

                Set c = .FindNext(c)

                If c Is Nothing Then

                    Exit Do

                End If

            Loop While c.Address <> firstAddress

        End If

    End With

    With Sheets("Sheet2")

        For i = 1 To k

            .Cells(i, 1) = doko(i)

        Next

    End With

    msg = InputBox("セルの色を消しますか？ 1=消す　2=消さない")

    If msg = 1 Then

        Sheets("sheet1").UsedRange.Interior.Pattern = xlNone

    End If

End Sub

TETUOさんの回答に対する返答がないようですが、ご質問の意味が複数の検索用語をまとめて検索して、その結果を一覧表示したいということでしょうか？

その場合はフィルタオプションの設定の機能が利用できます。

手元にMacの環境がありませんが、Windows版のExcelならデータタブの「詳細設定」で検索条件範囲に元データと同じ項目名が１行目に記載された検索条件範囲を指定して「抽出先」を指定すれば、その位置に該当データの一覧が表示できます。

＃回答が質問の趣旨と違う場合は、その回答に返答するようにしたほうが解決が早いと思います。

TETUO様

返信ありがとうございます。

詳細に返答いただきまして大変ありがたいのですが、

私にはさっぱりわかりません。

２つの票があって、ひとつひとつのマスにある番号が例えば、２０２９８７、２０２９８６、など

１００こ位ある中からもうひとつの票にある３０こを100個の中のどこにあるのか一括で表示してくれるような

機能はありますか？

マックちゃん様

返信ありがとうございます。

２つの票があって、ひとつひとつのマスにある番号が例えば、２０２９８７、２０２９８６、など

１００こ位ある中からもうひとつの票にある３０こを100個の中のどこにあるのか一括で表示してくれるような

機能はありますか？

＞１００こ位ある中からもうひとつの票にある３０こを100個の中のどこにあるのか一括で表示してくれるような機能はありますか？

あるかもしれませんが、私はマクロでしか出来ません。

マクロ以外の方法は識者の回答をお待ちしてください。

（第2案です）

A列に探す数字、B列に対象がある場合はC列を作業列にしてD列に番地を表示できます。

下図の場合 D2に =VLOOKUP(A2,$B$2:$C$101,2,0) と入力して下へコピー