[發問] Excel 篩選後複製。

stephenlee

我有一個活頁簿內有多個工作表,我要將相關工作表先做篩選再複製貼上做
樞紐分析表,例如工作表QC3,QC4,QC5 這三個工作表,我是用公式 等於 "=" 另外一個工作表的內容,那就是QC3-QC5 由第二列開始,全部為公式= 另外一個活頁簿
內的資料內容,同時因為我是用公式= 另外一張工作表的內容,所以在最後的列是會有0 的問題,0的顯示是該工作表的列沒有資料,因為我不要每次都把公式向下拉再取資料,而是先=該工作表的內容,我要將QC3先 篩選K欄 "year" 為2022-1 月份,再由A2:K2 向下複製再貼上至QC Summary 的A2 儲存格,QC4 也是篩選2022-1 , 再由A2:K2 複製至QC Summary,此時複製貼上則是在QC3 剛才複製的資料下方,同時QC5 都是一樣做法,

而CLS-QC5-CLS-QC7 也是一樣做法3個工作表,這次便是A2:K2複製至CLS Summary這樣, 而Total Summary 則我以手動方式,將QC Summary 及CLS-Summary 做樞紐分析表整合資料這樣。

QC3-QC5 這樣只是3個工作表,CLS-QC5-7 也是剛好3個,如果下次有新增的話,都需要根據工作表的多少來自動複製貼上。

最好是自動認別到以QC 開頭的工作表則自動篩選複製貼上至QC Summary 表內,同時CLS-開始的也是自動篩選再複製貼上。
而2022-1 是會根據月份篩選, 到2月時,則要自動篩選2022-2。


所有QC工作表是以公式等於= 另外一張工作表的資料,所以要以實數貼上Summary 。 同時每張工作表的內容資料多少都不一樣。

請問如何以VBA 做到以上要求,謝謝
Report.rar (286.46 KB)

下載次數: 23

2022-1-28 11:01

stephenlee

Sub TEST_A1()
Dim Arr, Brr(2), N(2), i&, j%, YM$, SS, S As Worksheet, T$, k%
YM = Format(Date, "yy ...
准提部林 發表於 2022-1-30 08:59

感謝淮大,我這些資料來源是用公式= 其他工作表內的資料, 貼上指令碼後,他在13行,以下句子中出現錯誤說


第1至10欄是用公式=其他工作表的資料,而11欄是我用公式將第1欄的日期轉為年份及月份,方便統計整合。

"Type mismatch"
if Arr(i, 11) = YM Then

能不能勞煩幫我看一下,謝謝。