获取特定字体格式对应的单元格地址

水和米

如图，选中区域A的单元格，然后用

1. MsgBox Selection.SpecialCells(xlCellTypeConstants).Address(RowAbsolute:=False, ColumnAbsolute:=False)
   

复制代码

语句就可以得到非空单元格的地址“D6:E7,C8:G8,D9:E9”，
系统很工整的把满足条件的单元格地址分成了三个区域

现在的情况是，在区域B内，获取标红字体的单元格地址
SpecialCells的可选参数里好像没有现成的语句得出 和 系统算法一样的结果地址
如果让我自己写代码，
办法一，是用 For Each RNG in Range("B16:I25") 和 Union()语句，得到碎片化的单元格地址
办法二，先用数组暂存数据，然后用 For Each RNG in Range("B16:I25") 删除不是红字格式的数据后，
            用SpecialCells(xlCellTypeConstants)得到系统算法给出的最优地址结果，最后用数组给单元格赋值还原

所以在这里向大家请教，还有更好的办法 或 硬碰硬的写最优地址的代码 吗？
AddressTEST.rar (11.7 KB, 下载次数: 3)

2020-12-1 10:25 上传

点击文件名下载附件

大灰狼1976

用union（）

Datous

先用办法一，遍历区域，生成碎片地址，然后定位常量 specialcells ，就可确定连续地址了。

MOY838840554

符合的地址往union里放就行了，最后获取address

水和米

感谢大家帮助，原来方案一的结果就是最优的结果，之前我只是脑中想想，想当然的以为结果必然是碎片化的，果然还是实践出真知啊~~~

ggmmlol

对于Range对象，尽量不要用Range.Address做参数来传递，而应当用byref Range方式传递参数。

因为，当Range的不连续区域很多、导致其实际Address的字符串长度超过255个字符时，Address属性会截断而只取前255个字符以内的合格地址，这将导致传递的参数不准确！