VBA 中的数据透视表编程

Question

我有以下格式的 Excel 数据表：

Name   Fruits    Condition of Fruits
=====  ======    ====================

Ram    Apple       Good

Jadu   Apple       Bad

Tina   Orange      Good

Ram    Orange      Good

Tina   Apple       Bad

Ram    Apple       Bad

Pivot 程序在同一个 excel 的另一张表中的输出，比如在 sheet(2) 中应该是 像这样：

Name  Fruits   Condition of Fruits
====  ======   ===================
               Good       Bad    Total
               ====      =====  ======
Ram   Apple     1           1     2
Ram   Orange    1           0     1
Tina  Apple     0           1     1
Tina  Orange    1           0     1
jadu  Apple     0           1     1
===================================
Grand Total     3           3     6
===================================

上述格式需要存在于工作表 (2) 的 Excel 中，只要工作表 (1) 中包含源数据，如第一个表所示。

我希望使用 Excel 数据透视表概念创建宏程序。

Answer 1

如果您在数据上插入数据透视表，请将这些列拖到行标签中：

• 姓名
• 水果。

然后将此列拖到列标签中：

• 果实状况。

将同一列拖入Values：

• 果实状况。

数据透视表看起来与您的几乎相同（除了水果在名称下，而不是为每个水果重复名称）。

每当您更新工作表 1 中的数据时，您可以通过右键单击表并选择刷新来让数据透视表反映这一点。