Excel VBA中Range搭配Cells属性调用SpecialCells返回Nothing问题

你认为两种写法等价的前提是Cells和前面的Range属于同一个工作表，但第二种写法里的Cells没有加任何父对象限定，VBA会默认把它解析为当前活动工作表（ActiveSheet）的单元格，而不是你指定的Worksheets("AUX")里的单元格。
相当于你给AUX表的Range传了两个其他工作表的单元格当边界参数，跨工作表构造Range本身就不符合SpecialCells方法的调用上下文，最后自然返回Nothing。
第一种写法能正常运行是因为你直接传了字符串地址"a1:a14"，这个地址是直接绑定在前面的Worksheets("AUX")父对象上的，不会受当前活动工作表影响，所以赋值正常。
这类问题排查耗时的常见原因是：如果你跑代码的时候刚好激活了AUX表，两种写法效果完全一致，一旦代码触发时活动表是其他表，第二种写法立刻失效。

核心原则：只要在工作表对象下调用Cells，就必须和Range绑定同一个父对象，两种常用稳定写法：

• 全限定引用写法，直接给Cells指定对应工作表

Set Rng = Worksheets("AUX").Range(Worksheets("AUX").Cells(1, 1), Worksheets("AUX").Cells(14, 1)).SpecialCells(xlCellTypeBlanks)

• 用With块简化重复引用，注意所有Range和Cells前面都要加小数点.，这个点代表绑定到With声明的对象

With Worksheets("AUX")
    Set Rng = .Range(.Cells(1, 1), .Cells(14, 1)).SpecialCells(xlCellTypeBlanks)
End With

额外提醒：SpecialCells(xlCellTypeBlanks)本身如果匹配不到空单元格也会返回Nothing，正式代码里建议加错误捕获，避免匹配不到空值的时候直接抛出运行时错误。

内容的提问来源于stack exchange，提问作者Guille