エクセルの使い方

質問

部品がエクセルシートに整理してあります。たとえば一番のシートには部品ａｂｃｄが、２番のシートにはｅｆｇｈが、３番のシートにはｉｊｋというように整理してあったとして、ｊという部品はどのシートにありますかという問いに３番のシートですと解が出るようにするエクセルの使い方はどうしたらいいですか。

回答No.2

keithin

たとえばSheet1，Sheet2，Sheet3の３枚のシートのＡ列のどこかに「j」があるとして
=SUM(COUNTIF(INDIRECT("Sheet"&{1,2,3}&"!A:A"),"j")*{1,2,3})
としてみると，１か２か３と答えが出ます。
ちなみにどこにも無ければゼロになります。

回答No.1

tom04

こんにちは！
検索したいデータがSheetのどの列（行）にあるのか判らないので
とりあえずすべてのセルを対象としてみました。

VBAになってしまいますが一例です。
Alt＋F11キー　→　メニュー　→　挿入　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim k As Long, str As String, cnt As Long, c As Range, myFlg As Boolean
str = InputBox("検索データを入力")
For k = 1 To Worksheets.Count
Set c = Worksheets(k).Cells.Find(what:=str, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
myFlg = True
cnt = k
Exit For
End If
Next k
If myFlg = True Then
MsgBox "部品「" & str & "」は" & Worksheets(cnt).Name & "にあります"
Else
MsgBox "部品「" & str & "」はありません"
End If
End Sub 'この行まで

※　検索データは重複していない（複数Sheetにはない）という前提です。
こんな感じではどうでしょうか？m（_ _）m