【VBA研究】用VBA创建数据透视表

最新推荐文章于 2024-07-29 10:47:39 发布

宋哥

最新推荐文章于 2024-07-29 10:47:39 发布

阅读量2.8w

点赞数 5

分类专栏： VBA_Excel

本文链接：https://blog.csdn.net/iamlaosong/article/details/44487779

版权

本文介绍如何使用VBA在Excel中自动创建和更新数据透视表。作者通过编写VBA代码，实现了从拣货报表中提取颜色信息，并根据储位、名称和颜色动态生成数据透视表，简化了重复工作。文章展示了工具界面、拣货单数据格式以及关键的VBA代码段，包括取消汇总的优化技巧。

摘要由CSDN通过智能技术生成

作者：iamlaosong

有个拣货报表，想先从货品信息中分离出颜色信息，再根据储位、名称和颜色创建一个数据透视表，由于数据是变化的（结构不变，记录数会变），每次重新创建很麻烦，因此想做个工具，用VBA分离颜色并创建数据透视表，供其他人使用。分离颜色的代码很好写，创建数据透视表的代码自然采用录制宏的方法最简单，代码出来后修改一下就行了。

1、工具界面如下：

2、拣货单的内容如下，需要分离SKU信息中的颜色：

3、工具的代码如下：

'分离信息
Sub separate_information()
    
    On Error GoTo Err
    thisfile = ThisWorkbook.name   '本文件的名字，这样赋值就可以随便改名了
    Worksheets("系统参数").Select
    If Cells(2, 2) = "Y" Or Cells(2, 2) = "y"