神奇的BI

实例需求：如果D列相邻单元格内容相同，并且对应的E列单元格内容也相同，并且D列不为空，那么D列、E列和G列相应行使用间隔颜色进行标记，如下图所示。示例代码如下。Sub demo() lst = [a1].End(xlDown).Row arr = Range("d1:d" & lst) Range("b3:L" & lst).Interior.Color = xlNone Set dic = CreateObject("scripting.diction

实例需求：批号列包含L、W、H，公式列为计算公式，现需要计算“结果”列。批号列为11位数字，其格式为：LLLLWWxxHHH，其xx为填充位。示例代码如下。Sub demo() Dim arr, L, W, H, Rng Set Rng = [a1].CurrentRegion arr = Rng.Value lst = UBound(arr) For i = 2 To lst L = Left(arr(i, 1), 4) W

Excel中的合并单元格是个很奇葩的功能，有的用户非常喜欢这个功能，但是合并单元格的功能有时差强人意，处理起来非常麻烦，从数据处理的角度考虑，不推荐使用合并单元格。既然Excel提供了合并单元格功能，那么用户就可能会使用这个功能，例如A1:B4为合并单元格区域，其中的文字内容具有不同的格式，现在需要将其内容和格式拷贝到D1单元格，目标区域也是一个合并单元格区域，使用Excel的拷贝与粘贴，只能把文字拷贝过去，字体格式丢失了，如下图所示。Sub CopyMerge(srcCel As Range, de

将Excel工作簿转换为PDF，可以使用“另存为”，也可以使用打印至虚拟PDF打印机。将Excel工作表转换为PDF，可以使用打印至虚拟PDF打印机。如何将单元格区域导出为PDF呢？设置打印区域，打印至虚拟PDF打印机，同样可以实现。但是这个方法太绕了，可以使用更简单的方法。也许读者知道ExportAsFixedFormat可以将工作簿转换为PDF，殊不知Range对象也有ExportAsFixedFormat方法。示例代码如下。Sub Demo() file_pdf = ThisWor

在复杂的代码开发过程中，程序逻辑结构可能存在多个分支，有时需要判断变量是否为空，例如对于Range变量，可以使用如下代码。

活动工作中选中的单元格区域为`B3:C7`，接下使用多种方法获取选中区域的行列范围。

工作簿中有很多个工作表，每个工作中又有多个表格，逐个操作实在太麻烦，而且容易出现遗漏，使用VBA快速解决这个问题。

实例需求：按照指定规则从A数据提取相应的规格至B和C列，示例数据如下所示。示例代码如下。Sub Demo() Dim regExp As Object Dim aRes, arr Set regExp = CreateObject("vbscript.regExp") regExp.Global = True regExp.Pattern = "([\d\.]+)x(\d+(\.\d+)*)" arr = [a1].CurrentRegion.Value

在Excel设置链接单元格非常简单，选中形状（图片），在公式栏中输入`=A1`，就完成了链接单元格，修改A1单元格第值，将自动更新形状文字。

示例数据如A列和B列所示，现在需要统计项目编号的不重复日期次数。声明一下，这个问题其实完全不需要使用VBA代码，数据透视表和公式实现起来都更直接。这个主题来自于一个网友的提问，希望研究如何使用VBA中的字典解决此问题。

使用VBA代码查找日期数据，经常出现错误，明明在工作表中存在该日期，但是代码就是查找不到，原因很简单，就是日期格式的问题。

Excel中数据数据条可以更直观的展现数据，依次单击【条件格式】>【数据条】>【实心填充】可以获得B列的效果。

想必大家都已经知道VBA中`Application.FileDialog(msoFileDialogFolderPicker).Show`可以实现目录选择对话框，本文解释另一种实现方式 -- Shell对话框。

提到查找文件通常实现方法都是使用Dir函数，其实VBA中提供了返回指定文件长度（以字节为单位）的函数`FileLen`，利用这个函数也可以实现快速判断文件是否存在。

《快速判断工作簿中是否存在指定工作表》介绍了两种方法实现判断工作表是否存在与工作簿中，最近发现有更简单的方法实现，在这里和大家分享一下。示例代码如下。Function blnSheetExist(ByVal strSht As String) As Boolean blnSheetExist = (TypeName(Application.Evaluate(strSht & "!A1")) = "Range")End FunctionSub Demo() Dim aSht

实例需求：按照指定规则从示例数据提取相应的规格，示例数据如下所示。A75432222新粉色M/160 – 提取规格为：MB43243333畅销黑色44 – 提取规格为：44C93119125 – 无规格方法1：Sub Demo1() Dim regExp As Object, regExpMHs As Object Set regExp = CreateObject("vbscript.regExp") regExp.Global = True regExp.P

实例需求：按照指定规则从A列示例数据提取相应的内容，如下图所示。提取规格：1、第一段，第1个字符“-”前的字符，结果为字符串格式2、第二段，第1个“-”字符与第2个“-”字符中间的字符，结果为数字格式提取数字后，结果=1，则返回：1提取数字后，结果=2，则返回：2其余返回：03、第三段、第2个“-”字符与第3个“-”字符中间的字符，结果为字符串格式注意：有些编号没有第三个“-”，要判断。示例数据：A001-Y1-655-1-AA006-01-085A384-M1-221-1-

众所周知，在Excel VBA中有ThisWorkbook，在Word VBA中有ThisDocument，但是不知道为啥PowerPoint VBA并不提供ThisPresentation，对于加载宏工具来说，经常需要引用工具所在的Presentation对象，既然微软官方没有提供这个对象，那么咱们自己动手丰衣足食。

VBA中的Instr函数可以查找指定字符首次出现的位置，但是有时需要查找的字符第N此出现的位置，VBA并没有提供可以支持这个功能的函数。实例：查找字符串A123-B1234-C12345-D12345中减号第3次出现的位置。方法1：Sub Demo1() msg = "A123-B1234-C12345-D12345" cnt = 0 nth_pos = 3 For i = 1 To Len(msg) If Mid(msg, i, 1) = "-