通过VBA而非公式复制唯一值：含IF函数列复制时#REF错误求助

嗨，我完全懂你遇到的麻烦——当源列是IF公式生成的内容时，AdvancedFilter会直接复制公式，要是公式里的引用在目标工作表里无效，或者源数据本身就有公式返回的错误，就会冒出#REF错误。下面给你两种靠谱的解决思路和代码实现：

方法一：先提取源数据的值到临时区域，再做高级筛选 #

这种思路是先把Data工作表中AN9:AO203的纯值复制到一个临时区域（比如同工作表的空白列），再对这个值区域执行高级筛选，这样复制到目标的就是实实在在的值，不会带公式，从根源上避免引用错误。

修改后的代码如下：

On Error GoTo ErrorHandler 'Business units & cat uniq
Dim wsData As Worksheet, wsOverview As Worksheet
Dim tempRange As Range

Set wsData = Worksheets("Data")
Set wsOverview = Worksheets("Overview")

' 把源区域的值复制到临时区域（这里用AP:AQ列当临时区，你可以根据实际调整位置）
Set tempRange = wsData.Range("AP9:AQ203")
wsData.Range("AN9:AO203").Copy
tempRange.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False ' 清除复制状态

' 对临时区域执行高级筛选
tempRange.AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=wsOverview.Range("A294:B303"), Unique:=True

' 可选操作：如果不需要临时数据，清空临时区域
tempRange.ClearContents

ErrorHandler:
    Exit Sub

方法二：先执行筛选，再把目标区域转成值 #

这种方法保留你原本的AdvancedFilter逻辑，之后把目标区域的公式直接转换成值，覆盖掉公式，也就不会出现公式引发的#REF错误了。

修改后的代码如下：

On Error GoTo ErrorHandler 'Business units & cat uniq
Dim targetRange As Range

With Worksheets("Data")
 .Range("AN9:AO203").AdvancedFilter Action:=xlFilterCopy, _
 CopyToRange:=Worksheets("Overview").Range("A294:B303"), Unique:=True
End With

' 将目标区域的公式转换为值
Set targetRange = Worksheets("Overview").Range("A294:B303")
targetRange.Value = targetRange.Value

ErrorHandler:
 Exit Sub

小提醒： #

• 方法一的临时区域要确保是空白的，别覆盖到你现有的数据，你可以根据工作表实际情况调整临时区域的位置（比如用更靠后的列，或者专门建个隐藏的临时工作表）。
• 方法二更简洁，但如果AdvancedFilter复制的公式已经产生了#REF错误，转成值后错误会保留，所以方法一更稳妥，因为它从源头上用值来做筛选。

你可以根据自己的实际场景选一种试试，应该就能解决问题啦。

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