Question

我想从表1到表2复制一个值（单元格内容是一个vlookup公式）。在表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

Vba复制到自动过滤器

1 个答案: