R1C1:R" & rn & "C22", _
Version:=4 _
).CreatePivotTable _
TableDestination:="Sheet1!...R1C1", _
TableName:="数据透视表1", _
DefaultVersion:=4
'xlPivotTableVersion10=1(03)11=2()12=3(.../ xlColumnField / xlPageField
'.Position = 1 '插入位置
'.分类汇总 = Array (自动,求和,计数,平均值,最大值,最小值,乘积,数值计数...实际拣货量"), "件", xlSum
'全选透视表
.PivotSelect "", xlDataAndLabel, True
'PivotSelect 对象,模式,[允许宏]