在Excel表格中，做数据分析常用到的就是数据透视表了。可以按照不同方式重新排列分析数据。 在菜单中，可以直接插入数据透视表的功能，按提示选择表字段分析统计 也可以通过代码创建数据透视表，方便自动处理一些常用的计算。 创建数据透视表代...

Excel VBA中Activate方法和Select方法的区别(差别） 一、Select是指选定对象，Activate是指激活对象。 二、Select可以同时选定多个对象，但Activate只能激活一个对象。 ActiveWorkb...

'_xlnm._FilterDatabase$' 不是一个有效名称 '_xlnm._FilterDatabase$' 不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。 今天是准备不考虑一个Execl有多少个表，表名叫什...

Sub VBA代码批量修改或替换文本文件中的内容() Dim Fn$, strPath$, strFile$, strText     Fn = Application.GetOpenFilename("请随便选择一个...

Excel的Pivot Table在我们平时的办公场景 学习 以及 工作中都常用到，但如果想自动化快速操作透视表，那肯定离不开VBA，但如何通过VBA自动操作Pivot Table呢。下面列出国外一个作者有关VBA操作透视表Pivo...

Excel 中使用 VBA 控制多个透视表（pivot table）的实现 困绕很久的一个问题终于解决了。需求是在 Excel 中有很多个透视表，每个透视表的数据源是相同的，我希望让这些透视表的某个过滤条件一起联动。 比如我有三个透视表，...

在Excel表格中，我们有时需要删除多余的空白行。逐行删除想必是比较麻烦的。 前面的文章我们介绍过删除空白行的方法《Excel批量删除空白行》，也有用代码删除固定列的行的方法《删除行》 下面介绍另外的vba代码，通过计算非空单元格个数来删除...

导出Excel工作表中所有形状为图片，要经过ChartObjects的转换。相关的代码如下 Dim shp As Shape For Each shp In ActiveSheet.Shapes      ...

本宏能够实现依次查找ori（）中的文本，并替换为对应的rep（）中的文本 Ori = Array("a","b","c") Rep = Array("a","b","c")     For i = 0 To U...

在Excel工作表中查找符合条件的数据。我们可以用条件格式。设置相关的条件，可以以不同格式突出显示符合条件的数据 也可以用vba代码，判断范围内数据是否符合条件，符合条件的被选中。 如图，选中所有超过60的单元格。 详细代码如下： ...

Excel工作簿中可以添加多个工作表。每个工作表可以是独立的内容，也可以是有联系的内容。 有时我们会根据内容添加比较多的工作表。如何快速找到添加了多少个工作表。 下面代码可以返回工作簿中使用工作表的个数 Function SHEETCOU...

在测试程序的准确性时，我们常常填写大量的虚拟数据。逐个输入显然是浪费时间的 Excel中提供了一个非常好用的随机函数RandBetween。 返回位于指定的两个数之间的一个随机整数。每次计算工作表时都将返回一个新的随机整数。  R...

在创建的应用程序中， 我们输入信息可以用文本框，但是文本框是单纯的文本文字，没有其他格式 可以用富文本控件，富文本编辑器是带有格式的。 我们也可以调用系统的文字格式。下面的代码，可以获取系统安装的字体名称。 Sub ShowInstal...

VBA获取当前活动单元格所在的数据透视表 Dim strPvName As String on error Resume next strPvName = Selection.PivotCell.Parent If err.number=...

在使用VBA操作Excel.application对象时，发现看不到工作表的内容了 如我设置了xlsApp.visible=true  想看看VBA操作控制excel.application里工作簿及工作表的变化时，发现看不到工作...