如何统计EXCEL中的数据透视表的信息?

也没什么可分析的,直接上代码,看看是不是你需要的:

Sub GetPVT()

'定义一个1000行的数组,如果你预判工作簿中数据透视表数量可能大小1000,那就改成10000,甚至10万,以确保能大于数据透视表数量即可。

Dim arr(1000, 3) as string

i = 0

'遍历工作簿中的每个工作表

For Each sht In ActiveWorkbook.Worksheets

'遍历工作表中的每个数据透视表

For Each pvt In sht.PivotTables

'赋值工作表名称、数据透视表名称、数据源

arr(i, 0) = sht.Name

arr(i, 1) = pvt.name

arr(i, 2) = pvt.SourceData

i = i + 1

Next pvt

Next sht

'将数据写到工作表中

Cells(1, 1).Resize(i, 3) = arr

End Sub

最后写到将数据写到工作表中,没有判断会不会因为粘贴区域有数据透视表面失败,建议每次新建一个工作表,并将新工作表为活动工作表,然后运行代码。

相关推荐
师太,答应老衲吧14 分钟前
SQL实战训练之,力扣:2020. 无流量的帐户数(递归)
数据库·sql·leetcode
Channing Lewis1 小时前
salesforce case可以新建一个roll up 字段,统计出这个case下的email数量吗
数据库·salesforce
毕业设计制作和分享3 小时前
ssm《数据库系统原理》课程平台的设计与实现+vue
前端·数据库·vue.js·oracle·mybatis
ketil273 小时前
Redis - String 字符串
数据库·redis·缓存
Hsu_kk4 小时前
MySQL 批量删除海量数据的几种方法
数据库·mysql
编程学无止境4 小时前
第02章 MySQL环境搭建
数据库·mysql
knight-n4 小时前
MYSQL库的操作
数据库·mysql
包饭厅咸鱼5 小时前
QML----复制指定下标的ListModel数据
开发语言·数据库
生命几十年3万天5 小时前
redis时间优化
数据库·redis·缓存
Elastic 中国社区官方博客5 小时前
释放专利力量:Patently 如何利用向量搜索和 NLP 简化协作
大数据·数据库·人工智能·elasticsearch·搜索引擎·自然语言处理