CreatePivotTable secundario ()
lastRow dévil como de largo
Amortiguar i como de largo
Hojas (“crudo”). Activar
Gama (“A1”). Valor = “símbolo”
Gama (“B1”). Valor = “código de cliente”
Gama (“C1”). Valor = “cantidad”
Gama (“D1”). Valor = “privado”
lastRow = hojas (“crudo”). Gama (“A” y Rows.Count). Extremo (xlUp). Fila
Para i = 2 al lastRow
Si células (i, 2).Value = “4001” o ido (células (i, 2).Value, 1) = “T” o ido (células (i, 2).Value, 1) = “M” entonces
Células (i, 2).Value = “privado”
Terminar si
Después i
ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData: = _
¡“Crudo! R1C1: R” y lastRow y “C4”) .CreatePivotTable TableDestination: = "", TableName: = _
“PivotTable1”, DefaultVersion: =xlPivotTableVersion10
ActiveSheet.PivotTables (“PivotTable1”) .AddFields RowFields: = " símbolo”, _
ColumnFields: = " código de cliente "
ActiveSheet.PivotTables (“PivotTable1”) .PivotFields (“cantidad”). Orientación = _
xlDataField
Submarino del extremo
|