通过VBA在Excel数据透视表中显示重复数量的重复行

时间:2017-03-07 02:24:05

标签: excel vba excel-vba pivot-table

我有一张物料清单(BOM)表,其中包含不同功能的重复项目。我有一个VBA代码来自动创建这个的数据透视表,以查看功能列的总值是多少。

string

所以我想看到的是:

             A                      B                C             D     

         Description             Quantity         Cost($)       Function

  1      Pr. Vessel_A               1               320         Pre Treat
  2      Pr. Vessel_A               1               320         Post Treat
  3      Pr. Vessel_A               1               320         Primary RO
  4      Pr. Vessel_A               1               320         Pre Treat
  5      Pr. Vessel_A               20              6400        Secondary RO
  6      Membrane_00B               5               505         Pre Treat     
  7      Membrane_00B               5               505         Primary RO
  .
  .
  .

我使用这段代码很长一段时间但是今天我意识到,如果项目描述和数量相同在同一个函数中,那么数据透视表只显示我其中一个。

  

在这个例子中,我只看到 1 数量Pr。 Pre Treat的Vessel_A   功能但 2数量的成本。好的,总成​​本是正确的,但数量不是。而不是这个,我需要看到两个不同的线也正确地看到数量。

这就是我现在看到的:

          Function               Quantity          Cost($)      Description

  1      Pre Treat                  1               320         Pr. Vessel_A
  2      Pre Treat                  1               320         Pr. Vessel_A
  3      Pre Treat                  5               505         Membrane_00B
  4      Total Pre Treat                            1145        

  5      Primary RO                 5               505         Membrane_00B
  6      Primary RO                 20              6400        Pr. Vessel_A
  7      Total Primary RO                           6905       

  8      Post Treat                 1               320         Pr. Vessel_A
  9      Total Post Treat                           320  

  10     Secondary RO               1               320         Pr. Vessel_A
  11     Total Secondary RO                         320     
  .
  .
  .

我一直试图自己纠正这个问题但是无法做到这一点。也没有在网上找到确切的解决方案。那么我应该如何编辑我的代码以查看我的数据透视表中重复数量的重复描述行? 这是我的代码:

          Function               Quantity          Cost($)      Description

  1      Pre Treat                  1               640         Pr. Vessel_A
  2      Pre Treat                  5               505         Membrane_00B
  3      Total Pre Treat                            1145        

只要我有" .RepeatLabels = True"对于Baslik1和Baslik3(数量和描述)缺少什么?

1 个答案:

答案 0 :(得分:0)

我通过向表中添加另一个数据列解决了这个问题。

在这种情况下,只要新添加的列中的值不同,我的表就需要重复我的所有项目。