如何统计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

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

相关推荐
The_Ticker1 小时前
CFD平台如何接入实时行情源
java·大数据·数据库·人工智能·算法·区块链·软件工程
Elastic 中国社区官方博客1 小时前
Elasticsearch 开放推理 API 增加了对 IBM watsonx.ai Slate 嵌入模型的支持
大数据·数据库·人工智能·elasticsearch·搜索引擎·ai·全文检索
zhy8103021 小时前
.net6 使用 FreeSpire.XLS 实现 excel 转 pdf - docker 部署
pdf·.net·excel
企鹅侠客1 小时前
ETCD调优
数据库·etcd
Json_181790144801 小时前
电商拍立淘按图搜索API接口系列,文档说明参考
前端·数据库
傻啦嘿哟1 小时前
如何使用 Python 开发一个简单的文本数据转换为 Excel 工具
开发语言·python·excel
煎饼小狗1 小时前
Redis五大基本类型——Zset有序集合命令详解(命令用法详解+思维导图详解)
数据库·redis·缓存
永乐春秋2 小时前
WEB-通用漏洞&SQL注入&CTF&二次&堆叠&DNS带外
数据库·sql
打鱼又晒网2 小时前
【MySQL】数据库精细化讲解:内置函数知识穿透与深度学习解析
数据库·mysql
大白要努力!2 小时前
android 使用SQLiteOpenHelper 如何优化数据库的性能
android·数据库·oracle