VBA EXCEL创建包含所有已填充单元格的透视表
VBA（Visual Basic for Applications）是一种用于自动化任务和定制化应用程序的编程语言。它是微软的宏语言，可以在各种微软应用程序中使用，包括Excel。
透视表是Excel中的一种数据分析工具，它可以帮助用户快速汇总和分析大量数据。透视表可以根据用户的需求对数据进行分组、汇总、筛选和计算，从而提供更直观和易于理解的数据分析结果。
在VBA中创建包含所有已填充单元格的透视表，可以按照以下步骤进行：
- 打开Excel并进入开发环境：按下Alt + F11打开VBA编辑器。
- 在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
- 在新的模块中，编写VBA代码来创建透视表。以下是一个示例代码：
Sub CreatePivotTable()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pc As PivotCache
' 设置要创建透视表的工作表
Set ws = ThisWorkbook.Worksheets("Sheet1")
' 设置透视表缓存
Set pc = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ws.UsedRange)
' 在工作表上创建透视表
Set pt = pc.CreatePivotTable(TableDestination:=ws.Range("F1"), TableName:="PivotTable1")
' 添加字段到透视表
With pt
.PivotFields("字段1").Orientation = xlRowField
.PivotFields("字段2").Orientation = xlColumnField
.PivotFields("字段3").Orientation = xlDataField
End With
End Sub在上述代码中，你需要将"字段1"、"字段2"和"字段3"替换为你实际的字段名称，以及"Sheet1"替换为你要创建透视表的工作表名称。
- 运行VBA代码：按下F5运行代码，即可在指定的工作表上创建包含所有已填充单元格的透视表。
这是一个基本的VBA代码示例，用于创建透视表。根据实际需求，你可以进一步自定义透视表的布局、字段和计算方式。
腾讯云提供了一系列云计算相关的产品和服务，其中包括云服务器、云数据库、云存储等。你可以通过访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于这些产品的详细信息和使用指南。
相关·内容
1回答
VBA -生成PivotTable时所需的对象错误
vba、excel
我正在vba中创建一个数据透视表。
我几乎成功地创造了它。下面是我的代码，
Sub Pivot()
Dim ws As Worksheet
Dim pc As PivotCache
Dim pt As pivottable
Set ws = Sheets("Cat_Pivot")
Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Preparation Sheet!R1C7:R1048576C8")
Set pt = pc.CreatePivotTable(ws.range("B3&#
浏览 1提问于2017-06-21得票数 0
回答已采纳
2回答
用于对齐枢轴表的VBA
vba、excel
我使用一个VBA来生成数据透视表。
我想在数据透视表中对齐我的值，我使用了折叠行，在我的代码中，我得到了对象所需的错误。
我在网上做过研究，在任何地方，我们使用的都是一样的。
DataLabel.HorizontalAlignment = xlCenter
下面是代码，我用来生成数据透视表，并试图对单元中心中的数据值进行对齐，有人可以建议，我哪里出错了，以及如何纠正它。
Sub sum2017()
Dim ws9 As Worksheet
Dim pc9 As PivotCache
Dim pt9 As PivotTable
Dim ct9 As Integer
Set ws9 = S
浏览 3提问于2017-07-05得票数 2
回答已采纳
1回答
透视表“无效的过程调用或参数”
excel、vba、pivot-table
所以我现在要做的是，我有一个VBA代码，它打开一个文件，然后重新格式化excel文件，我将代码分配给这个代码的一个按钮。重新格式化文件后，我需要基于重新格式化的excel数据创建一个枢轴表。
因此，我在excel文件的模块中编写了一个枢轴表代码，然后打开并运行它。成功地创建了透视表。但是，当我将代码复制到打开excel文件并重新格式化它们的主文件时，将出现一个错误。
“无效的过程调用或参数”。
当我试图添加一个枢轴表时，我会得到错误。
Dim ws As Worksheet
Dim pc As PivotCache
Dim pt As PivotTable
LastRow = Cel
浏览 2提问于2019-12-18得票数 1
1回答
如何获得PivotFields类的PivotTable属性？
excel、vba、pivot-table
我有一个枢轴表的VBA代码，可以给出每个人从原始表中获得多少个CNs。
我收到一条错误消息
无法获得PivotTable类的PivotFields属性
在With ws.PivotTables("PivotTable1").PivotFields("Type")线路上。
表与理想枢轴表的实例
Dim ws As Worksheet
Dim wb As Workbook
Dim pc As PivotCache
Dim pt As PivotTable
Sheets("Supplier Quality").Activate
Set ws
浏览 2提问于2020-08-06得票数 0
1回答
创建PivotCache时类型不匹配错误
excel、vba
我试图使用动态范围在新表上创建一个数据透视表，但得到的错误如下：
运行时错误: 13类型错配
谷歌搜索了错误，据我理解，代码包含的数据类型不匹配，但我无法确定错误在哪里：
使用Excel 2016。
Sub EEE()
Dim PrevSheet As Worksheet
Set PrevSheet = ActiveSheet
Sheets.Add.Name = "Pivottable"
PrevSheet.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
浏览 3提问于2017-11-12得票数 0
回答已采纳
2回答
我想使用vba创建一个非常简单的枢轴表，但是我经常在枢轴缓存中出现错误。
excel、vba
我把一些VBA放在一个枢轴表上，基本上只给出每个人从原来的表中有多少个CNs。也许有一种更简单的方法来做到这一点，但是我在计划将这些代码添加到宏时必须有代码。我增加了一张我原来的桌子的照片，以及我试图让我的枢轴表看起来像什么。我在With ws.PivotTables("PivotTable1").PivotFields("Type")行上得到一条错误消息:无法获得PivotTable类的PivotFields属性。有什么想法吗？
，谢谢！
亚PivotTableTest2()
Dim ws As Worksheet
Dim wb As Workbook
Di
浏览 1提问于2020-08-06得票数 0
回答已采纳
1回答
VBScript调用VBA宏构建数据透视表
excel、vba、vbscript、pivot-table、qlikview
我想做以下几点：
使用VBScript，使用VBScript将数据从QlikView导出到Excel ，触发Excel 有一个Excel宏，该宏基于从步骤1加载的数据构建数据透视表
我已经成功地导出了数据(步骤1)并触发了Excel (步骤2)。
理论上，这个宏应该实现第3步(如果我从Excel手动运行它，它就会成功完成)。
但是，当步骤3中触发的宏创建数据透视表时，它会失败，在QlikView中，VBScript消息是：
无法运行宏“procBuildPivot”。此工作簿中可能无法使用宏，也可能禁用所有宏。
情况肯定不是这样，因为如果我在Excel中直接触发宏，就会生成pivot表。或者
浏览 3提问于2020-02-25得票数 0
3回答
使用VBA创建数据透视表
excel、vba
我写了这段VBA代码来创建数据透视表(实际上是从宏转换而来的)。
Dim wsTarget As Worksheet
Dim rngSource As Range
Dim pc As PivotCache
Dim pt As PivotTable
Dim field As PivotField
Application.ScreenUpdating = False
Set rngSource = Summary.Range("A1").CurrentRegion
Set wsTarget = PivotTable
wsTarget.Select
For Each pt In
浏览 1提问于2013-12-16得票数 1
1回答
使用VBA创建数据透视表时出现过程错误
vba、excel
当我运行下面的VBA代码来创建一个数据透视表时，我在运行宏时得到一个“无效的过程或调用参数错误”。错误出现在"Set PT“区域。
我已经定义了工作表对象，但我也尝试调整"Table Destination“以直接引用工作表，但仍然得到相同的错误。
你知道可能是什么导致了这个错误吗？
With wsData
Dim PTCache As PivotCache
Dim PT As PivotTable
'Creates the Cache
Set PTCache = ActiveWorkbook.PivotCaches.Create( _
浏览 0提问于2018-02-08得票数 0
1回答
生成数据透视表时出错438
vba、excel
我正在试着在表格中生成一个数据透视表。我想将列标签中的值带到中间，因此，我包括了行
.HorizontalAlignment = xlCenter
当我包括这件事时，我会犯一个错误
对象不支持此属性或方法。
这是完整的代码，我用来创建数据透视表。
Sub status()
Dim ws1 As Worksheet
Dim pc1 As PivotCache
Dim pt1 As PivotTable
Dim ct1 As Integer
Set ws1 = Sheets("PW")
Set pc1 = ActiveWorkbook.PivotCaches.Cre
浏览 1提问于2017-07-03得票数 0
回答已采纳
2回答
创建数据透视表时应用程序定义的错误
vba、excel
我正在使用一个VBA代码来生成一个数据透视表，我的代码可以很好地与其他工作表一起工作，但是在这个表中它总是会产生一个错误。我查了一下列名，每一页的名字，我还是不知道我在哪里出了错。我甚至录了宏交叉，但我还是一无所知。
Sub AutoPivot7()
Dim ws7 As Worksheet
Dim pc7 As PivotCache
Dim pt7 As PivotTable
Dim ct7 As Integer
Set ws7 = Sheets("Pivot_Reasons")
Set pc7 = ActiveWorkbook.PivotCaches.Create(x
浏览 3提问于2017-06-28得票数 0
2回答
Excel VBA从表创建数据透视表
vba、excel
因此，我是VBA的新手，正在努力学习工作项目中出现的一些东西，这让我抓狂。
我有一个宏来清理我的数据，并将其放入一个表中，然后我正在处理一个宏来获取该表，并将其转换为透视表/图表。第一个宏在电子表格"DailyData“上创建Table1。作为参考，如下所示：
Sub Format_Table()
Dim target As Worksheet
Set target = ThisWorkbook.Worksheets(1)
target.Name = "DailyData"
Worksheets("DailyData").Range("AB:AB
浏览 0提问于2017-10-20得票数 1
1回答
在PivotTable中复制VBA值
vba、excel、pivot-table
我已经通过宏创建了一个数据透视表，并希望使用VBA将该数据透视表复制为值。创建数据透视表进行得很顺利，但是将它复制到另一个工作表中会让我头疼。代码如下：
Sub test()
Dim shtTarget, pvtSht As Worksheet
Dim pc As PivotCache
Dim pt As PivotTable
Dim field As PivotField
Dim rngSource As Range
With ActiveWorkbook
Set rngSource = .Sheets(2).Range("H:I").CurrentRegion
浏览 0提问于2017-02-17得票数 2
回答已采纳
1回答
vba PivotTable -应用程序定义或对象定义错误
excel、vba
我正在尝试使用excel VBA创建一个PivotTable。我已经了解到这可能很棘手，建议使用R1C1-reference样式将PivotRange调暗为字符串。我已经将我编写的代码复制粘贴到新宏中，并且在下面指示的行上得到应用程序定义的错误或对象定义的错误。但是，透视表已经出现在工作表中，但由于宏拒绝继续，因此显然没有生成字段。 问:有人知道是什么导致了这个错误吗？ 代码： Option Explicit
Public wbTO As Workbook
Public ws As Worksheet
Public LastRow As Long, LastCol As Long
浏览 48提问于2019-02-11得票数 0
回答已采纳
1回答
使用VBA创建时出现数据透视表错误
excel、vba
好样的！
我正在尝试使用vba创建数据透视表，我对使用vba的数据透视表非常陌生，我试图在谷歌中尽可能多地研究这一点，但没有找到太多信息来帮助我修复它，如果有人能帮助我，那将是非常有帮助的。
范围-始终从A10开始，列将固定到H，但行数不固定，因此我尝试定义范围并在代码中使用它，但它将我抛在错误消息下面，请检查并更正我
面临的问题-无法将Rng定义为范围，并且无法在数据透视表中使用此范围。
Rng as范围
运行时错误'91'：未设置对象变量或黑方差
数据透视缓存
运行时错误'438'：对象不支持此属性或方法
数据
作为货币CB LC类型CB FC类型SI 10
浏览 2提问于2016-05-30得票数 0
1回答
Excel 2013 VBA从单个单元格中筛选多个枢轴表
vba、excel
第一次发帖。
我有一个Excel 2013电子表格，上面有三个枢轴故事。我试图通过引用同一个工作表上的一个单元格来自动更新它们。VBA代码是：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'This line stops the worksheet updating on every change, it only updates when cell B1 is touched
If Intersect(Target, Range("B1")) Is Nothing Then Exit Su
浏览 2提问于2018-01-02得票数 0
回答已采纳
1回答
使用VBA添加计算字段
vba、excel-2010、pivot-table
我正在尝试将计算字段添加到在VBA (Excel 2010)中创建的透视表中。数据透视表正在工作，所有内容都显示出来了--除了完全不存在的计算字段。
我使用的代码如下：
Sub Create_Pivot_Table_for_chart2()
Dim wsnew As Worksheet
Dim objPivotcache As PivotCache
Dim objPivotTable As PivotTable
'Adding new worksheet
Set wsnew = Worksheets.Add
wsnew.Name = "Test5"
浏览 6提问于2014-11-17得票数 3
回答已采纳
2回答
在数据透视表前插入excel数据
excel、vba、pivot-table
我一直收到这个错误:运行时错误'5'：
无效的过程调用或参数：
我正在学习VBA…&是的，在我试图问这个问题之前，我已经在这里找到了答案。首先，我尝试在TableDestination中添加单引号(但是表单名称中没有空格)，然后我尝试刷新表格，但没有成功。我还确保数据透视表的名称是唯一的，并且以前没有使用过，最后我遇到了一个解决方案，删除Sheets.Add语句并保留TableDestination:="“。这很有效，但是当我生成报表时，它会在excel数据之前插入数据透视表，而我想要的是另一种方式，我确信我做错的地方很简单，但是我似乎找不到我需要的东西
Sub
浏览 3提问于2015-09-01得票数 2
2回答
合并两个工作表中的数据并在另一个工作表中生成数据透视表
vba、excel
我有一个名为Data的工作表，但却丢失了。这两个工作表包含相同数量的列。数据表具有从第5行开始的数据，缺少的表具有从行2开始的数据。
我想在我的工作表"Dev“中生成一个透视表，其中我将有一个显示数据的透视表。
我在下面提供了一个相同的示例图像。
我有下面的代码运行一个工作表，并产生透视表。有没有人能建议一下，我怎样才能做到这一点。
Sub pivotAPQP()
Dim sp1 As Worksheet
Dim pcache As PivotCache
Dim ptable As PivotTable
Dim ct As Integer
Set sp1 = Sheets("D
浏览 0提问于2017-10-11得票数 0
1回答
在与源数据相同的工作表中创建枢轴表(Excel )
vba、excel、pivot、pivot-table
我有一些数据，这些数据是我用下面的VBA脚本构建的枢轴表的源。
代码正在创建一个新的工作表并在那里生成枢轴表，但是我希望在源数据所在的同一个工作表中显示pivot表。
它还需要检查到现有数据在哪里，并且必须选择一个空单元格。
Sub ApplyPivot()
ActiveWorkbook.Sheets("NOIDA").Select
Range("A1").Select
Set objTable = Sheet1.PivotTableWizard
Set objField = objTable.PivotFields("sector")
ob
浏览 2提问于2016-08-05得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
