代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()
    Dim myRange1 As Range, myRange2 As Range
    Set myRange1 = ActiveSheet.UsedRange    '指定任意的单元格区域
    Set myRange2 = myRange1.SpecialCells(xlCellTypeConstants)
    myRange2.Select
    MsgBox "指定单元格区域内输入有常量的单元格的地址为：" & myRange2.Address
    Set myRange1 = Nothing
    Set myRange2 = Nothing
End Sub

注释：

Range.SpecialCells 方法可以返回一个 Range 对象，该对象代表与指定类型和值匹配的所有单元格。
其语法如下：
表达式：SpecialCells(Type,Value)
其Type参数的可选XlCellType常量及对应值的表格大家可以问度娘哦。

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接：http://excel880.com/blog/archives/11297