源数据
Excel 2016
打开源数据（表1），可以看到这个表格是用于计算PPM的，第一个表格的数据是不良零件的数量。第二个表格的数据是总的交付零件数量。数据是月度的统计数据结果。
为了便于后续程序编写，需要稍微将表格做下改动。主要是将合并的单元格拆开，重复填写相关内容。如本例中将年份重复拆分到每个单元格中。
在Excel中新的表（表2）中，创建透视表格数据标题。如本例中，标题信息为“年”、“月”、“客户”、“不良数量”、“交付数量”总共5列。
编程前的准备工作就做好了，按Alt + F11进入宏页面。如图，鼠标右键单击任何一个Excel表名，点击【插入】，然后点击【模块】，进入宏编程界面。
在编程界面中，编写如下程序：Sub data()Dim i As IntegerDim j As IntegerDim year As IntegerDim month As IntegerDim ngqty As IntegerDim dlqty As LongDim cust As StringSheets(1).SelectFor i = 14 To 19 For j = 2 To 40 If Cells(i, j) <> '' And Cells(i, j) <> 0 Then year = Cells(12, j) month = Cells(13, j) ngqty = Cells(i - 11, j) dlqty = Cells(i, j) cust = Cells(i, 1) Sheets(2).Select Range('A' & Range('A65536').End(xlUp).Row + 1) = year Range('B' & Range('B65536').End(xlUp).Row + 1) = month Range('C' & Range('C65536').End(xlUp).Row + 1) = cust Range('D' & Range('D65536').End(xlUp).Row + 1) = ngqty Range('E' & Range('E65536').End(xlUp).Row + 1) = dlqty End If Sheets(1).Select Next jNext i End Sub
程序编写完成后，按快捷键F5执行程序。当然如果源数据不同，程序需要做相应的调整。程序执行完后，在表2就获得整齐的可以透视的数据表了。
选择表2数据，就可以快速进行透视数据分析了。是不是很高效呢？
数据不同，表格不同，对应的程序也需要进行一定的修改才能正确运行
关于透视表的操作，可以参考本人另外一个经验