在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里工作簿及工作表的变化时，发现看不到工作...

Wps右键 插入行有一个可插入行数的选项 虽然是个小功能，但感觉 还是比较方便 以下是Wps的ET表格右键菜单 以下是Office 的Excel右键菜单

通过多天的尝试，Wps的VBA中的PivotTable对象的GetPivotData函数方法取不到值 如下面的的代码： ActiveSheet.PivotTables(1).GetPivotData("家庭电气化电量") 或加上条件的代码：...

不管你如何对来源数据区域 进行筛选，隐藏，数据透视表都会取整个所有数据 那如何对来源数据进行筛选呢 1.最笨的方法，是将来源数据先筛选后再 粘贴为一个新工作表。再进行数据透视 2.使用筛选列，如将分县局 字段 拖到 筛选列，则筛选列 筛选后...

在人事管理系统的中，工资是必不可少的模块。在工资表中，往往的一个表头上有大量的数据。再发送给员工时需要在每条记录都插入表头。即隔行插入表头。下面推荐几种方法 隔行插入的方法-分类汇总法： 1、全选数据，在菜单栏上选择数据=》分类汇总 2、...

Excel修改工作表Visible可见属性时提示 vba报错：不能设置类worksheet的visible属性 无论excel还是wps都是一样的错误 无论是手工  还是代码 设置 sheet1.vi...

在收到一个Excel文件打开时，发现窗口里面没有任何内容，以为打开一个空白的工作簿。 在WPS打开更加神奇，连菜单栏都没有。如下图 更加可以肯定这是一个空白的表格。可是这明明是一个有内容的文件 这个问题困扰了小编一段时间，不...