excel如何在 N個工作表,搜尋目標,然後匯整出來??

Question

我有N個工作表, 要從中找到, 某一字串, 然後將其位置,
(在那一張工作表的名稱)SHOW出來
例如有 3 張工作表 A、B、C,要搜尋 字串 FFF
找到後, 可以記錄到另一張工作表 D,
如下:
位置 內容
1. 表 A 的第16列 ,FFF YYY
2. 表 A 的第22列 ,FFF ZZ
3. 表 B 的第16列 ,FFF BB
4. 表 C 的第30列 ,FFF CA
當然 ,如果也能同時SHOW 出,搜尋到的資料 ,更好
實際上,我的工作表有150個以上, 所以才要找 高手相助
萬分感謝!!

或設計巨集,也可解決,那要如何設計??

Answer 1

使用VBA,在工作表按ALT+F11,至VBA視窗,在上方功能列,選"插入">"模組",在出現的白色畫面中,貼上程式碼如下:Sub SEARCHTEXT()  Dim SN As Integer, SH As Integer, I As Integer, J As Integer  Dim VR As Integer, TT As String  TT = InputBox("輸入尋找字串", "尋找", "FFF")  SH = ThisWorkbook.Sheets.Count  VR = 0  For SN = 1 To SH - 1    For J = 1 To 10 '欄數自訂        For I = 1 To 500 '列數自訂            If InStr(1, Sheets(SN).Cells(I, J), TT) <> 0 Then                VR = VR + 1                Sheets(SH).Cells(VR, 1) = Sheets(SN).Name & " 第" & I & "列 第" & J & "欄"                Sheets(SH).Cells(VR, 2) = Sheets(SN).Cells(I, J)            End If        Next I    Next J  Next SN  MsgBox "SEARCH OK."End Sub在最後一頁空白工作表時，執行巨集．