[求助]高手！如何改写录制的有关制作数据透视表的宏改成通用宏

kw116

 

经过热浪2006高手的指点偶已经明白一点了

偶现在做了3个宏分别的功能是

1。  在指定列左插入1列并在此列的1行填写文本，2行填公式，2列以下所有行向下自动填写2行的公式直到公式中某项为空白。

2。  以在上个宏中插入列的1行为基点，选取向右至右边界，向下至下边界的范围。

3。为第二个宏中选择的区域做数据透视表并设定好布局。

目前我使用录制宏这个功能为CJX.xls这张表录制了一个制作选定区域的宏，可是偶录制好后就看不明白了。。太多的陌生函数，陌生语句，陌生语法。看的偶眼花缭乱的

偶是想在这个宏的基础上改出一个功能一样的，不是象这个宏只能对CJX.xls起作用的，是能够应用到所有已打开的活动表上面的宏，可惜知识不够。。看都看不明白。。

Sub 选定区域做数据透视表()
'
' 选定区域做数据透视表 Macro
' 宏由 USER 录制，时间: 2008-8-15
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "CJX!R1C16:R51C23").CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("数据透视表1").AddFields RowFields:="货号", ColumnFields:= _
        "Size"
    ActiveSheet.PivotTables("数据透视表1").PivotFields("QtyShipped").Orientation = _
        xlDataField
End Sub
 

 

以上是录制好的宏的全部内容，还请高手帮忙编一个~~  毕竟有示例好分析进步更快！先行谢过！

 

另外：偶是不是可以把这三个宏的功能都编成一个啊？

yanjie

最好把文件传上来，只有摸着写了一个

Sub qq()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pc As PivotCache
Application.ScreenUpdating = False
Set ws = ActiveSheet
Set pc = ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Range("a1").CurrentRegion.Address)
Sheet2.Activate   '选择创建数据透视表的工作表。
Set pt = pc.CreatePivotTable(tabledestination:=Sheet2.Range("a4"), tablename:="数据透视表1")
pt.ManualUpdate = True
ActiveSheet.Cells(3, 1).Select
    pt.AddFields RowFields:="货号", ColumnFields:="Size"
    pt.PivotFields("QtyShipped").Orientation = xlDataField
pt.ManualUpdate = False
pt.ManualUpdate = True
Set ws = Nothing
Set pc = Nothing
Set pt = Nothing
Application.ScreenUpdating = True
End Sub