在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

在相同excel的另一張工作表中的Pivot程序的輸出，例如在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
===================================

如第一張表所示，只要工作表（1）中包含源數據，就需要在工作表（2）中的Excel中提供以上格式。

我希望宏程序使用Excel數據透視表概念創建。

Answer 1

如果在數據上插入數據透視表，請將這些列拖到“行標簽”中：

• 名稱
• 水果。

然后將此列拖到“列標簽”中：

• 水果狀況。

將同一列拖到“值”中：

• 水果狀況。

數據透視表的外觀幾乎與您的數據透視表相同（除了水果名稱下的名稱，而不是為每個水果重復名稱）。

每當您更新工作表1中的數據時，您都可以通過右鍵單擊表並選擇刷新來使數據透視表反映這一點。