求解 excel 回傳多筆資料?

資料->從其他來源->從MicrosoftQuery->
資料庫->Excel Files->確定
選取活頁簿->目錄->選取目標資料庫位置->確定
查詢精靈->選取要顯示的活頁簿及要顯示的欄位(選項勾選系統表格)
下一步->下一步->下一步->在MicrosoftQuery中編輯查詢或檢視資料->完成
顯示或隱藏準則窗格->準則欄位(以OO欄位作為搜尋目標)->值輸入=[]
將資料傳回Excel
匯入資料->將資料放在目前工作表(輸入的欄位即為表格的首欄首列)
匯入資料->新工作表(直接產生新的工作表匯入資料)
內容->定義->參數->以下列儲存格作為參數值的來源(選取作為搜尋值的欄位)勾選當儲存格值變更時自動更新-確定-確定-確定

新增巨集

Sheets("工作表2").Cells.ClearContents
Sheets("工作表3").Cells.ClearContents
Sheets("工作表4").Cells.ClearContents
With Sheets("工作表1")
.AutoFilterMode = False
.UsedRange.AutoFilter Field:=7, Criteria1:=1
.UsedRange.Copy Sheets("工作表2").Cells(1, 1)
.UsedRange.AutoFilter Field:=7, Criteria1:=2
.UsedRange.Copy Sheets("工作表3").Cells(1, 1)
.UsedRange.AutoFilter Field:=7, Criteria1:=3
.UsedRange.Copy Sheets("工作表4").Cells(1, 1)
.AutoFilterMode = False
End With