如何在VBA中替换所选单元格的阵列以激活活动单元格?

时间:2019-04-05 03:58:31

标签: vba

我是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替换很容易。

0 个答案:

没有答案