但我的問題是，現在做的是一對多查詢，

大大的這作法似乎是將資料分開做 多對多...

我已經有總表將資料LIST出來 ，但問題是 LIST並沒有做群組分類，A1~A9屬於第一個群組只是假設

Sub 先在每個分表中製作一個輔助欄位，欄位名稱即等於表格名稱(所屬廠區)()

For i = 4 To Sheets.Count

Sheets(i).Activate
Range("C2").Select
Selection.ListObject.ListColumns.Add Position:=3
Columns("C:C").Select
ActiveCell.FormulaR1C1 = "= Sheets(i).Name"
Columns("C:C").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Columns.AutoFit
Columns("C:C").Select
Selection.EntireColumn.Hidden = True

Next 

End Sub

我想法是說能不能先在分表中建立輔助欄位(欄位建立在C欄)來搜尋，但程式好像有錯

我會想這樣做的原因是
** 總表 LIST 是 COPY所有分表 複製貼上的，都是自動程序**，
所以輔助欄做好後也會一併複製貼上到 LIST裡進行更新

並利用VLOOKUP在 總表 的 G8 搜尋欄位 打入

=VLOOKUP(G8, 所有分表所集合成的搜索範圍, 回傳其中所屬的廠區(也就是上面程式RUN出的輔助欄位值), 0)

Sheets(i).Name 是 VBA 的語法
沒法子放進 Excel 的公式裡
將

ActiveCell.FormulaR1C1 = "= Sheets(i).Name"

改成

ActiveCell.FormulaR1C1 = Sheets(1).Name

看看

恩 謝謝 不好意思我雷了 XDDD

For i = 4 To Sheets.Count

Sheets(i).Activate
Range("C2").Select
Selection.ListObject.ListColumns.Add Position:=3
Columns("C:C").Select

For J = 2 To Cells(Rows.Count, 1).End(xlUp).Row

Cells(J, 3) = Sheets(i).Name

Next
Next

總表 LIST 是 COPY所有分表 複製貼上的，都是自動程序，
所以輔助欄做好後也會一併複製貼上到 LIST裡進行更新

另外
這種做法
在「多於一個廠區有該料號」的情形時
只會抓到第一筆
你可能要考慮這個情形...

RUN完結果 順利載入分表的所有廠區到總表 那下一步搜尋該怎 KEY 呢?
我現在頭很痛

對 我有考慮到 所以LIST 材用料號搜尋(因為料號會重複，但廠區部會重複，LIST會過濾重複的資料