为何与自动筛选相关的Excel VBA代码返回“对象必需”错误？

嘿，这个问题我太熟了！你这是踩了VBA里Is Nothing判断的一个常见坑——变量类型不对！

你把filteredRangePU声明成了Variant类型，但Is Nothing这个判断只认对象类型的变量（比如Range、Workbook这种正经的对象）。如果你的filteredRangePU是个非对象的Variant（比如存的是数组、普通数值），直接用Is Nothing判断就会触发类型不匹配错误，根本轮不到“跳过代码块”这一步。

给你两种针对性的解决办法： #

• 如果filteredRangePU本来就是要存Range对象（比如筛选后的单元格区域）：
  把声明改成Dim filteredRangePU As Range就行！这样当筛选后没有匹配单元格时，filteredRangePU会被设为Nothing，你的判断就能正常生效，自动跳过代码块。

• 如果filteredRangePU是筛选后导出的数组（比如用.Value拿到的单元格值数组）：
  别用Is Nothing了，换个判断方式。比如检查数组是否为空：

  If Not IsEmpty(filteredRangePU) Then
      ' 这里写你要执行的代码
  End If
  

  或者更严谨点，检查数组的上下界（避免数组未初始化的情况）：

  If Not IsError(UBound(filteredRangePU)) Then
      ' 数组有内容，执行代码
  End If
  

额外小提醒 #

你代码里的filterRangePU也是Variant类型，如果它也是用来处理Range对象的，建议也改成明确的Range类型声明。VBA里明确类型不仅能避免这类奇怪错误，还能让代码跑更快、更好维护~

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