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

最新推荐文章于 2025-06-23 10:18:44 发布
原创 最新推荐文章于 2025-06-23 10:18:44 发布 · 3.3w 阅读 · 49 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

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

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

作者：iamlaosong

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

1、工具界面如下：


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


3、工具的代码如下：


                

        

    

    
  


        

            

                      
                        最低0.47元/天 解锁文章
                        

                          
200万优质内容无限畅学

                          
                        

                      
            

        


    



                



	

		

			

				
					
vba操作数据透视表问题，如何解决？

				
			

			

				

					**My Coding Family**
				

				

					01-22
					
					784
					
				

			

		

		

			
				
通过调整清空操作的顺序、刷新表格内容、清除缓存、并确保屏幕更新生效，可以有效解决数据透视表清空后单元格残留问题。逐步测试上述改进代码，验证问题是否解决。希望如上措施及解决方案能够帮到有需要的你。PS：如若遇到采纳如下方案还是未解决的同学，希望不要抱怨&&急躁，毕竟影响因素众多，我写出来也是希望能够尽最大努力帮助到同类似问题的小伙伴，即把你未解决或者产生新Bug黏贴在评论区，我们大家一起来努力，一起帮你看看，可以不咯。

			
		

	



                

            
              



	

		

			

				
					
VBA 数据透视表再了解

				
			

			

				

					叶雪青的博客
				

				

					08-11
					
					3287
					
				

			

		

		

			
				
今天继续讲讲VBA数据透视表的内容。在昨天插入透视表的内容基础上，增加一点学习内容。




一、如果需要增加一列原来表上没有的内容，比如说“利润”。假设利润 = 原始数据表上面的收入－费用，怎么操作呢？



主要代码和昨天的内容差不多，新增了2句话，


    pt.CalculatedFields.Add "利润", "=收入-费用"
    pt.PivotFields("利润").Orientation = xlDataField

完整代码如下所示（第四步是新增的公式列）


Option .

			
		

	



              


  
              

                


	

		

			

				
					
VBA实现Excel的数据透视表

				
			

			

				

					hotkoko的博客
				

				

					07-09
					
					4338
					
				

			

		

		

			
				
本节会介绍通过VBA的方法实现Excel创建新的数据透视表、修改原有的数据透视表的数据源以及刷新数据透视表内容。本节测试内容以下表信息为例。

			
		

	





	

		

			

				
					
VBA 数据透视表的创建

				
			

			

				

					风转砂的博客
				

				

					01-21
					
					1万+
					
				

			

		

		

			
				
方法
读/写
值类别
默认值
说明




.ColumnGrand
读/写
Boolean
True
是否启用列汇总


.RowGrand
读/写
Boolean
True
是否启用行汇总


.HasAutoFormat
读/写
Boolean
True
数据透视表在刷新或移动域时自动设置格式


.DisplayErrorString
读/写
Boolean
False
如果数据透视表在有错误的单元格中显示用户自定义的错误字符串，则该值为 True。


.ErrorString



返回...

			
		

	



		

			
		



	

		

			

				
					
掌握Excel数据透视表：数据分析的利器

					
最新发布

				
			

			

				

					weixin_35639680的博客
				

				

					06-23
					
					804
					
				

			

		

		

			
				
数据透视表是一种交互式表格，能够快速对大量数据进行汇总、分析和呈现。用户可以通过简单的拖放操作，将数据源中的字段重新组织，从而获得新的视角和洞察。数据透视表不仅提高了数据处理的效率，还增强了数据分析的灵活性。

			
		

	





	

		

			

				
					
VBA 创建透视表，录制宏，自动化报表

				
			

			

				

					菜鸟记录
				

				

					05-06
					
					3219
					
				

			

		

		

			
				
⏹VBA 创建透视表，录制宏，自动化报表

			
		

	





	

		

			

				
					
excel  VBA更新数据透视表

				
			

			

				

					10-31
				

			

		

		

			
				
excel通过VBA创建更新数据透视表，对数据完成自动分析

			
		

	





	

		

			

				
					
[Excel VBA办公]VBA代码创建透视表

				
			

			

				

					William数据分析的博客
				

				

					08-20
					
					1437
					
				

			

		

		

			
				
[Excel VBA办公]VBA代码创建透视表

			
		

	





	

		

			

				
					
VBA自动创建数据透视表宏

				
			

			

				

					08-29
				

			

		

		

			
				
VBA自动创建数据透视表宏

			
		

	





	

		

			

				
					
快学excel-VBA创建数据透视表

				
			

			

				

					sx01117的博客
				

				

					12-24
					
					1240
					
				

			

		

		

			
				
VBA

			
		

	





	

		

			

				
					
VBA数据透视表

				
			

			

				

					02-28
				

			

		

		

			
				
VBA通过代码画出数据透视表，自定义数据区域

			
		

	





	

		

			

				
					
SQL+数据透视表+VBA 数据透视表的超级应用

				
			

			

				

					07-17
				

			

		

		

			
				
SQL+数据透视表+VBA 使数据透视表走向更灵活，更智能，更适用。
这个是我和师傅一撇首度合作，他提供了文件并提出了要求，我帮他实现其效果
下面从几个方面解释一下：

1、功能
一个源文件和一个通过用SQL查询生成的数据透视表
将源文件拖到电脑的任意位置，甚至将文件名也改掉，用VBA配上代码和窗体找到文件，数据透视表仍然能够正常工作
2、套用
现在来讲讲怎么使做出来的东东适应大家的需要
2、1
用OLE DB窗口引用工作表或写SQL语句，因为用这个方法同VBA相通，copy下来代码区的的语句
2、2
打开透视表文件，将透视表中的字段全部拖出来，也就是变成一个空数据透视表。
右击下面工作表图标 或者 工具》宏》visual basic 编辑器，点击模块看到代码区
2、3
将2、1步骤copy的语句commandtext的数据Array中的引号中
.CommandText = Array("    ")
可能不同版本会有一些差别，同时SQL语句中如果添加了文本生成新字段，双引号要成对翻倍
如："出库" AS 表单选项 要改成 ""出库"" AS 表单选项
2、4
语句太长的处理：在代码区如果你想好看一些，你可以插入“ _”来换行，当然不能插在一个单词或自动名等中间。
2、5
将文件存盘，重新打开就会有了数据，你可以将字段拖入数据透视表中，创建你自己的数据透视表，
2、6
这样文件就可以使用，相信VBA的引导不用教就可以交给别人使用了

下面附上代码，包含3个区：

1、 工作簿去，打开文件时工作
Private Sub Workbook_Open()
Dim OP

If Dir(Sheets("path").Range("A1")) = "" Then
    OP = MsgBox("源文件已被移走，请选择下列选项" + Chr(10) + "1、选择是，重新输入文件全名" + Chr(10) + "2、选择否，打开原有的数据透视表" + Chr(10) + "3、选择取消，关闭文件", vbYesNoCancel, "Scarlett温馨提示")
    If OP = vbYes Then
        UserForm1.Show
    End If
    If OP = vbNo Then
        ActiveWorkbook.Close True
    End If
    
    If OP = vbCancel Then
        Exit Sub
    End If
    
Else
    Call refreshpv
End If
End Sub

2、窗体区，实现文件的查找
Private Sub CommandButton1_Click()
Dim fopen As FileDialog
Set fopen = Application.FileDialog(msoFileDialogFilePicker)
fopen.Show
TextBox1.Value = fopen.SelectedItems(1)
Set fopen = Nothing
End Sub

Private Sub CommandButton2_Click()
If InStr(TextBox1.Value, ".") > 0 Then
    Sheets("path").Range("A1") = TextBox1.Value
    Call refreshpv
    unload me
Else
    MsgBox "文件名要带路径含后缀的文件名", "Scarlett_88温馨提示"
    TextBox1.SetFocus
End If
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Activate()

End Sub

Private Sub UserForm_Click()
TextBox1.Value = Sheets("path").Range("A1")
End Sub

3、模块区，实现SQL语句的地址更新和刷新数据透视表的数据源

Sub refreshpv()
    With ActiveSheet.PivotTables("数据透视表1").PivotCache
        .Connection = Array( _
        "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Sourc

			
		

	





	

		

			

				
					
vb读取dat文件内容

				
			

			

				

					12-01
				

			

		

		

			
				
可以随意读取dat文件内容，也可指定行进行读取dat内容，也可以往里dat文件中写信息，程序比较简单，仅供大家参考！欢迎大家进行指点！

			
		

	





	

		

			

				
					
通过VBA实现数据透视表，以及vlookup等公式

				
			

			

				

					weixin_45249324的博客
				

				

					07-05
					
					2124
					
				

			

		

		

			
				
通过VBA实现数据透视表，以及vlookup等公式

			
		

	





	

		

			

				
					
如何用VBA做数据透视表

				
			

			

				

					ToBeAMensch
				

				

					01-08
					
					9714
					
				

			

		

		

			
				
原数据 （第一行数据有空白格子，最好还是填上0。因为制作原理是它要先选定从a1格子开始一块全部有内容的矩阵，即A1:M2）


效果


代码
Sub Generate()
Dim ptcache As PivotCache
Dim pt As PivotTable
Dim prange As Range
Set ws = Sheet1

For Each pt In Sheet2.

			
		

	





	

		

			

				
					
VBA学习之关于数据透视表的应用

				
			

			

				

					weixin_30654419的博客
				

				

					01-27
					
					692
					
				

			

		

		

			
				
工作中很多地方需要同时处理多个数据表，而且用数据透视表进行排版，排序，计算字段，一个一个的做非常累，这里给出批量处理的方法。

学习VBA之前最好懂一点点VB的基础知识，因为里面的很多语法问题都是由VB来的。

Sub 出库数据一键生成数据透视表()
'先判定sheet表名称是否正确
 If ActiveSheet.name = "出库" Then
 MsgBox "这个是出库数据...

			
		

	





	

		

			

				
					
关于VBA对数据透视表的操作使用

					
热门推荐

				
			

			

				

					狂奔之林的博客
				

				

					08-25
					
					3万+
					
				

			

		

		

			
				
http://club.excelhome.net/thread-1147804-1-1.html



小弟不才，初来乍到EH论坛...在学习VBA学习E表的过程中，对于数据透视表的操作，这两天处处碰壁。不过在从网上查询资料解决问题之后，也想把这次遇到的问题总结下来，分享一下心得。希望能以此使其他的朋友在刚接触VBA数据透视表的时候，能少走我走过的弯路。主要还是描述性的介绍相关的语法含义

			
		

	





	

		

			

				
					
【Excel VBA】利用数据透视表 获取关键词 以及 出现频次

				
			

			

				

					神创的博客
				

				

					04-17
					
					3976
					
				

			

		

		

			
				
参考：https://jingyan.baidu.com/article/219f4bf7f1eee4de442d383f.html--------------------------------------------------------excel中如何快速统计出各个项出现的次数--------------------------------------------------------第...

			
		

	





	

		

			

				
					
[转载]VBA创建数据透视表

				
			

			

				

					tzx200911911的博客
				

				

					08-29
					
					1793
					
				

			

		

		

			
				
Sub 透视表()
Dim PTC As PivotCache
Dim PVT As PivotTable
Dim rng As Range
Set rng = Sheet1.Range("a1:d45") '数据源
Set PTC = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rng, Version:=xlPivotTableVersion14)
Set PVT = PTC.CreatePivotTabl.

			
		

	





	

		

			

				
					

				
			

			

				

					
				

			

		

		

			
				

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		
评论 3

	

  
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值