【Excel·VBA】如何定位单元格

终于可以继续更新公众号了，仿佛有一种回家的感觉

今天是西方的感恩节，感谢各位一直以来长期的关注和喜爱

---

今天群里有小伙伴问到一个关于合并多个表格的问题，因为存在隐藏列，但是只需要可见单元格的数据，所以今天我们一起来学习下如何定位单元格

在Excel中使用定位对话框可以选中工作表中特定的单元格区域，而在VBA中则使用SpecialCells方法，如下面的代码所示：

Sub SpecialAddress()

    Dim rng As Range

    Set rng =Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas)

    rng.Select

    MsgBox '工作表中有公式的单元格为： ' & rng.Address

    Set rng = Nothing

End Sub

---

代码解析：

SpecialCells方法返回一个Range对象，该对象代表与指定类型及值相匹配的所有单元格，语法如下：

expression.SpecialCells(Type,Value)

参数expression是必需的，返回一个有效的对象。

参数Type是必需的，要包含的单元格，可为表格所列的XlCellType常量之一

常量	值	描述
xlCellTypeAllFormatConditions	-4172	任意格式单元格
xlCellTypeAllValidation	-4174	含有验证条件的单元格
xlCellTypeBlanks	4	空单元格
xlCellTypeComments	-4144	含有注释的单元格
xlCellTypeConstants	2	含有常量的单元格
xlCellTypeFormulas	-4123	含有公式的单元格
xlCellTypeLastCell	11	使用区域中最后的单元格
xlCellTypeSameFormatConditions	-4173	含有相同格式的单元格
xlCellTypeSameValidation	-4175	含有相同验证条件的单元格
xlCellTypeVisible	12	所有可见单元格

第3行代码将SpecialCells方法的Type参数设置为xlCellTypeFormulas，返回的是含有公式的单元格

参数Value是可选，如果Type参数为xlCellTypeConstants或xlCellTypeFormulas， 此参数可用于确定结果中应包含哪几类单元格。将某几个值相加可使此方法返回多种类型的单元格。

如果省略将选定所有常量或公式，可为表格所列的 XlSpecialCellsValue常量之一

常量	值	描述
xlErrors	16	错误
xlLogical	4	逻辑值
xlNumbers	1	数字
xlTextValues	2	文本

---

我是张小懒

一个爱偷懒的家伙

一个要变得越来越自信的家伙

一个正在积极努力让自己变好的家伙

---

“ 转给那些喜欢的小伙伴吧 ”

大讲堂 |让我们有态度的学习Excel

编辑 |爱“偷懒”的张小懒

转载请注明出处