#求解# VBA代码运行报错1004

[潘姿吟�]

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广东，谢谢！

[沐休休]

ActiveSheet.PivotTables("数据透视表7").PivotFields("机构").CurrentPage = Range("D" & i).Value
改成这个试下呢