Sub Macro2()
For i = 1 To 3
Sheets("Sheet7").Activate
Sheets("Sheet7").Select
ActiveSheet.PivotTables("資料透視表7").PivotFields("機構").ClearAllFilters
Range("D" & i).Select
Selection.NumberFormatLocal = "@"
ActiveSheet.PivotTables("資料透視表7").PivotFields("機構").CurrentPage = Range("D" & i) 在這里報錯了，如果將Range("D" & i) 換成 "101上海”就可以運行
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False '清空剪貼板
Selection.Copy
Sheets("Sheet2").Select
Range("A" & 1 + 100 * i - 100).Select
ActiveSheet.Paste
Next
ActiveWorkbook.Save
End Sub
目的是想在Sheet2里實作分機構分段輸出，機構有 101上海 102北京 103廣東，謝謝！
uj5u.com熱心網友回復：
ActiveSheet.PivotTables("資料透視表7").PivotFields("機構").CurrentPage = Range("D" & i).Value改成這個試下呢
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/15111.html
標籤：VBA
上一篇：Java