excel - Vba 复制到自动过滤器

Question

我想将一个值（单元格内容是一个 vlookup 公式）从表 1 复制到表 2。在表 2 中，它需要在自动过滤器中填写。我记录了宏，但我无法在“关键”中创建特殊粘贴（仅值）。

现在 VBA 只使用“咨询”值，如果单元格 A23 发生变化（由于 vlookup 公式），它不会使用新值。

你能帮帮我吗？

Range("A23").Select
Selection.Copy
Sheets("Theory").Select
ActiveSheet.Range("$A$1:$AR$2653").AutoFilter Field:=3, Criteria1:= _
    "Consultancy"
Sheets("Practice").Select

Answer 1

这只是部分答案，因为我不完全理解这个问题。在您的问题中，您提到了 "sheet1" 和 "sheet2" 和 "critical" ；在代码中这些关键字没有出现，所以我看不到如何将代码与解释联系起来。

关于“仅执行粘贴特殊值”的具体点，方法是：

Range("A23").Select
Selection.Copy
Sheets("Theory").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Range("$A$1:$AR$2653").AutoFilter Field:=3, Criteria1:= "Consultancy"
Sheets("Practice").Select