使用VBA从另一个数据源向数据透视表添加字段

时间:2019-05-19 00:09:32

标签: excel vba

在使用VBA之前,我已经创建了数据透视表,但是我的教授最近给了我们一个好处,尽管这不是必需的,但是却使我发疯。

使用VBA宏将地区,地区和商店名称写入第一个报告中,以创建新报告

1)我的第一个报告如下:

  Location | Sum of ActNetSales | Sum of PlanNetSales 
 ----------|--------------------|--------------------- 
         1 | $76,170            | $65,172             
       100 | $163,691           | $140,057            
       101 | $34,724            | $29,710             
       104 | $70,501            | $60,322             
       106 | $113,826           | $97,391  

2)以下是上述报告的数据源。

Division | Year | Week | Location | SchedDept | PlanNetSales | ActNetSales | AreaCategory 
 ----------|------|------|----------|-----------|--------------|-------------|-------------- 
         5 | 2018 |   10 |      520 |       541 |       1943.2 |    2271.115 | Non-Comm     
         5 | 2018 |   10 |      520 |       608 |       4378.4 |    5117.255 | Non-Comm     
         5 | 2018 |   10 |      520 |      1059 |       1044.8 |     1221.11 | Comm         
         5 | 2018 |   10 |      520 |      1126 |         6308 |    7372.475 | Non-Comm   

3)我的教授希望我在上表中添加以下信息:地区地区商店名称。但是,这3个字段来自与上述报告不同的数据源。以下是我列出的3个字段的数据源。

  Division | Location | LocationName | Region | RegionName | District | DistrictName 
 ----------|----------|--------------|--------|------------|----------|-------------- 
         5 |        1 | Location 1   |      3 | Region 3   |       18 | District 18  
         5 |        4 | Location 4   |      5 | Region 5   |       32 | District 32  
         5 |        5 | Location 5   |      3 | Region 3   |       19 | District 19  
         5 |        6 | Location 6   |      5 | Region 5   |       28 | District 28

我通过连接2个表创建了他在上面要问的内容(通过将外键- location division 串联在一起创建了一个键:使用基本的index / match)并从中创建数据透视表,但我想尽力解决奖金!不幸的是,我没有Power Query,所以我不得不这样做。我尝试搜索以上内容,但找不到任何好的资源。您有什么建议或可以为我指明正确的方向吗?谢谢!

1 个答案:

答案 0 :(得分:0)

使用第三个表上的VLOOKUP在(2)下修改表以添加列region,District和storename是否作弊?然后,第二个表将具有原始数据和构造数据的额外列,从而使用Excel VLOOKUP技巧而不是实际的SQL表联接将其有效地连接到第三个表。

然后,您可以将扩展的联接表用作一个数据透视表源。

作弊在爱情,战争和IT解决方案中是合法的。