Page 1682 - Excel 高效办公应用与技巧大全
P. 1682

Set oldrng = Worksheets("数据
                源").Range("A1").CurrentRegion


                      Set wks = Worksheets.Add


                      Set newrng = wks.Range(“A1”)


                      Set pvc =
                ActiveWorkbook.PivotCaches.Create(xlDatabase,oldrng)


                      Set pvt = pvc.CreatePivotTable(newrng)


                      End Sub
   1677   1678   1679   1680   1681   1682   1683   1684   1685   1686   1687