ｅｘｃｅｌ検索結果を表に

質問

excelですべて検索をかけると、結果が「検索と置換」の下に表形式でブック、シート、名前、セル、値、数式と表示され
それらをクリックで情報にアクセスできるが、この結果を別のｅｘｃｅｌシートとして移すことはできないものでしょうか。
どうかよろしくお願いします。

回答No.2

mitarashi · ベストアンサー

横から失礼。
>シート名やＢＯＯＫ名をだすにはどうするのですか。
下記の様なことでしょうか？ご参考まで。
Sub test()
Dim myCell As Range

Set myCell = Range("a1")
Debug.Print myCell.Parent.Name
Debug.Print myCell.Parent.Parent.Name
Debug.Print myCell.Parent.Parent.Parent.Name
End Sub

回答No.3

mt2008

No.1です。
「検索と置換」のダイヤログボックス内では1シート分しか選択出来ませんので、このやり方ですと、1シート分の検索結果しか表示できません。
ブック名とシート名が判って居るなら、mitarashi様の回答の様に別に表示してはいかがですか。

複数ブックやシートを対象にして検索と同じ結果を得るのでしたら、対象ブックとシートでループを回してFindで探していくしかない化と思います。
リンクで示した類似質問のNo.2の回答を元にループを追加してみてください。

回答No.1

mt2008

過去の質問に似た様な物がありました。

参考URL：

http://okwave.jp/qa3555630.html

補足

０．下記のマクロを設置する

　１．[すべて検索]で検索する
　２．Ctrl＋Ａ　で検索結果を全て選択する
　３．マクロを起動する

動作の概要
　選択しているすべてのセルについて、
　・セル番地
　・値
　・(数式が入っていれば）数式
　を新規ブックに書き出す。

'-------------↓　ココカラ　↓-------------------
Sub Sample()
　Set myCels = Selection
　i = 1
　With Application.Workbooks.Add.Worksheets(1)
　　For Each myCel In myCels
　　　.Cells(i, 1) = myCel.Address
　　　.Cells(i, 2) = myCel
　　　If myCel <> myCel.Formula Then
　　　　.Cells(i, 3) = "'" & myCel.Formula
　　　End If
　　　i = i + 1
　　Next myCel
　End With
End Sub
'-------------↑　ココマデ　↑-------------------

とあり、出せるころはわかったのですが、シート名がでません。
シート名やＢＯＯＫ名をだすにはどうするのですか。