試圖爲每個選項卡篩選數據透視表，然後將內容粘貼到該選項卡

正如標題所示，我正在通過構建一份報告，爲此我有一個切片器，用戶可以選擇公司，然後運行宏使用該公司列表中的名稱創建選項卡，然後篩選數據透視表並將每個公司的信息複製到相應的選項卡中。試圖爲每個選項卡篩選數據透視表，然後將內容粘貼到該選項卡

我的代碼可能效率低我很抱歉，我一直在這一段時間工作。現在我告訴我，我需要一份福音書才能拿到下一份。我是否對此過度投入？在這一點上，我只是一團糟的代碼？

子fillTabs（）

對於i = 1到Sheets.Count

With ActiveWorkbook.SlicerCaches("Search key").Sheets(i).Name = True 
Range(A5, I10).Copy 
Worksheets("sheet2").Range(A5, I20).Copy Worksheets("Sheet(i)").Range("A1")

下一頁我

末次

非常感謝你提前！我在VBA世界有點孤單，對這種特定語言的導師沒有太多的瞭解。

來源

2017-04-24 Mel

有您所提供的代碼和你描述你想在你的崗位上實現的目標之間沒有相關性。你可以發佈你的'PivotTable'的屏幕截圖並描述你想從哪個'PivotField'建立每個公司的Excel表格 –

代碼在問題中沒有正確格式化，但從一眼看來，您可能會錯過'End With'語句以在您的'Next i'語句之前關閉您的With塊。

MSDN Link

來源

2017-04-24 20:37:02 phhlho

試圖爲每個選項卡篩選數據透視表，然後將內容粘貼到該選項卡

回答

相關問題