Question

我在使用AdvancedFilter xFilterCopy方法时遇到了一点麻烦。我试图从具有唯一值的范围复制到另一个单元格。但问题是在复制值时会复制源单元格中的公式。这会在目标单元格中造成麻烦

这是我要复制的代码。它的复制没有任何麻烦。但在新粘贴的单元格上，它看起来像#REF!。在检查单元格时，我发现它也是从源单元复制了该函数。

xRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Report_bar").Range("A2"), Unique:=True

那么我们如何避免这个问题并让它只复制值。

Answer 1

您可以使用xlFilterInPlace然后将其复制并粘贴PasteSpecial并仅粘贴xlPasteValues的值，如下所示：

xRange.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
xRange.Copy
Sheets("Report_bar").Cells(2, 1).PasteSpecial Paste:=xlPasteValues