我是VBA的新功能,我在VBA上没什么问题。 我尝试通过以下步骤对数据透视表进行宏记录:
Sub Macro1()
'
' Macro1 Macro
'
'
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, SourceData:= _
Array("Sheet2!R2C1:R147C45"), Version:=6).CreatePivotTable TableDestination _
:="", TableName:="PivotTable7", DefaultVersion:=6
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable7").DataPivotField.PivotItems("Sum of Value" _
).Position = 1
End Sub
我要替换>>
Array("Sheet2!R2C1:R147C45")
要
Range(ActiveCell, Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Select
每次我的活动单元格都不同时,发生这种替换的原因导致,所以我不愿使用硬编码Array(“ Sheet2!R2C1:R147C45”),而是选择活动单元格,但似乎无法jz替换很容易。