在我向您提供本指南并开始使用 VBA 创建数据透视表之前，让我告诉您一些事情。

我六年前才学会使用 VBA。我第一次编写宏代码来创建数据透视表时，失败了。

从那时起，我从糟糕的编码中学到的东西比实际工作的代码更多。

今天，我将向您展示一种使用宏代码自动化数据透视表的简单方法。

通常，当您将数据透视表插入电子表格时，它会通过一个简单的过程发生，但是整个过程是如此之快，以至于您永远不会注意到发生了什么。

在 VBA 中，整个过程是相同的，只是使用代码运行。在本指南中，我将向您展示每个步骤并解释如何为其编写代码。

只需看下面的示例，您可以在其中使用按钮运行此宏代码，它会立即在新工作表中返回一个新的数据透视表。

话不多说，让我们开始编写宏代码来创建数据透视表。

为了您的方便，我将整个过程分为 8 个简单的步骤。执行这些步骤后，您将能够自动化所有数据透视表。

请务必从此处下载此文件以进行后续操作。

第一步是声明我们需要在代码中使用的变量来定义不同的事物。

在上面的代码中我们声明：

在创建数据透视表之前，Excel 会插入一张空白工作表，然后在其上创建一个新的数据透视表。

并且，下面的代码将为您做同样的事情。

它将在活动工作表之前插入一个名为“数据透视表”的新工作表，如果已经存在同名工作表，它将首先删除它。

插入新工作表后，此代码将设置数据透视表工作表上的 PSheet 变量的值和源数据工作表上的 DSheet 变量的值。

确保将代码中的工作表名称替换为数据中的名称。

现在，下一步是设置源工作表中的数据范围。这里你需要注意一件事，你不能指定固定的源范围。

您需要可以识别源表中所有数据的代码。下面是代码：

此代码将从数据表的第一个单元格开始，选择直到最后一行，然后直到最后一列。

最后，将选定的范围设置为源。最好的部分是您不需要在创建数据透视表时每次都更改数据源。

在Excel 2000及更高版本中，在创建数据透视表之前，必须创建数据透视缓存来设置数据源。

通常，当您创建数据透视表时，Excel 会自动创建数据透视表缓存而不询问您，但是当您需要使用 VBA 时，您必须为其编写一些代码。

该代码有两种工作方式，第一，使用数据源设置数据透视缓存，第二，设置新插入的工作表中的单元格地址以插入数据透视表。

您可以通过修改此代码来更改数据透视表的位置。

在数据透视表缓存之后，下一步是插入一个空的数据透视表。请记住，当您创建数据透视表时，您总是首先获得一个空数据透视表，然后设置所有值、列和行。

这段代码会做同样的事情：

此代码创建一个空数据透视表并将其命名为“SalesPivotTable”。您可以从代码本身更改此名称。

创建空数据透视表后，下一步是像平常一样插入行和列字段。

对于每个行和列字段，您必须编写一个代码。这里我们要在行字段中添加年份和月份，在列字段中添加面积。

这是代码：

在此代码中，您提到了年和月作为两个字段。现在，如果您查看代码，您会发现位置编号也在那里。该位置号定义了字段的顺序。

每次需要添加多个字段（行或列）时，请指定它们的位置。您可以通过更改代码中的名称来修改字段。

最主要的是定义数据透视表中的值字段。

定义值的代码与定义行和列不同，因为这里我们需要定义数字、位置和函数的格式。

您可以使用上面的代码将金额添加为值字段。此代码会将值格式化为带有分隔符 (,) 的数字。

我们使用 xlsum 来添加值，但您也可以使用 xlcount 和其他函数。

最终，您需要使用代码来格式化数据透视表。数据透视表中通常有默认格式，但您可以更改此格式。

使用VBA，您可以在代码中设置格式样式。

代码是：

上面的代码将应用线条和“Pivot Style Medium 9”样式，但您也可以使用此链接中的其他样式。

最后，您的代码就可以使用了。

我们上面使用的代码在新工作表上创建数据透视表，但有时您需要将数据透视表插入工作簿中已有的工作表中。

在上面的代码（新工作表中的数据透视表）中，在编写插入新工作表的代码的部分中，然后为其命名。请对代码进行一些更改。

不用担心;我给你看。

首先，您需要指定要在其中插入数据透视表的工作表（已在工作簿中）。

为此，您必须使用以下代码：

您必须在 PSheet 变量中指定工作表的名称，而不是插入新工作表。

还有一些事情要做。您使用的第一个代码会在插入数据透视表之前删除同名的工作表（如果存在）。

当您将数据透视表插入现有工作表时，您可能已经有一个同名的数据透视表。

我的意思是你需要先删除那个枢轴。

为此，您需要添加代码，以便在插入新数据透视表之前从工作表中删除同名的数据透视表（如果存在）。

这是您需要添加的代码：

让我告诉你这段代码的作用。

首先，它只是将 PSheet 设置为要插入工作簿中已有数据透视表的工作表，并将 Data Worksheets 设置为 DSheet。

之后，它激活工作表并从中删除“销售数据透视表”。

重要提示：如果工作簿中的工作表名称不同，您可以通过代码更改它们。我已经突出显示了您需要执行此操作的代码。

使用此代码，我们可以自动化您的数据透视表。最好的部分是它是一个独特的设置；之后我们只需单击一下即可创建数据透视表，您可以节省大量时间。现在告诉我一件事。

您是否曾经使用 VBA 代码创建数据透视表？

欢迎在评论区与我分享你的意见；我想与您分享它们，并与您的朋友分享这个技巧。

类似文章：