数据透视表应用问题谢谢了

sjpetro

怎么才能实现有“数据表”用数据透视表得到“汇总表”，表格见附件谢谢了

LangQueS

客户太多，放不下：

数据透视表.rar (25.84 KB, 下载次数: 22)

2009-4-9 17:34 上传

点击文件名下载附件

sjpetro

谢谢版主，我要的是“汇总表”所要的格式

LangQueS

楼主的不重复客户有800多，需要1600多列才能放得下，可是2003只有256列。

不过这样的报表，怎么看呀！

sjpetro

条件如下：0-3吨        3-5吨        5-10吨        10-30吨        30-50吨        50吨以上

sjpetro

请版主在看看我的附件的表格“汇总表”，我主要是想根据我的主表“数据表”用数据透视表生成“汇总表”格式的数据。

小蚁雄兵

用手动分组吧

[ 本帖最后由 小蚁雄兵 于 2009-4-9 18:05 编辑 ]

LangQueS

数据透视表.rar (26.74 KB, 下载次数: 24)

2009-4-9 18:06 上传

点击文件名下载附件

yanjie

最好用excel2007做，它可以筛选再手动组合，可以很快速作出。excel2003排序后再手动组合可以作出，但是不好！
下面用VBA做了一个按3吨数量组合的透视表，点击一下按钮，就自动生成了： 数据透视表.rar (28.54 KB, 下载次数: 18)

2009-4-9 20:55 上传

点击文件名下载附件

[ 本帖最后由 yanjie 于 2009-4-9 20:55 编辑 ]

monvzhilei

VBA。
Sub yanjie()
Dim ws As Worksheet, pc As PivotCache, pt As PivotTable, pf As PivotField, pi As PivotItem
Application.ScreenUpdating = False
Set ws = Sheet2
Sheet1.Activate
For Each pt In ws.PivotTables
pt.TableRange2.Clear
Next
Set pc = ThisWorkbook.PivotCaches.Add(xlDatabase, Range("A1").CurrentRegion.Address)
Set pt = pc.CreatePivotTable(ws.Range("A13"), "透视表1")
pt.RowGrand = False
pt.ManualUpdate = True: pt.AddFields [c1:d1], "Data"
Set pf = pt.PivotFields(CStr([a1]))
With pf
    .Orientation = xlDataField
    .Name = "客户数"
    .Function = xlCount
End With
Set pf = pt.PivotFields(CStr([c1]))
With pf
    .Orientation = xlDataField
    .Name = "销量"
    .Function = xlSum
End With
pt.ManualUpdate = False
pt.ManualUpdate = True
Set pf = pt.RowFields(CStr([c1]))
pf.LabelRange.Group Start:=0, End:=True, by:=3
For Each pi In pf.PivotItems
pi.Name = pi.Name & "吨"
Next pi
pf.Orientation = xlColumnField
pt.DataPivotField.Position = 2
pt.ManualUpdate = False
pt.ManualUpdate = True
ws.Activate
MsgBox "透视表创建好了"
Application.ScreenUpdating = True
End Sub
这个也太难做了。