Vba 复制到自动过滤器答案

【问题标题】：Vba copy to autofilterVba 复制到自动过滤器
【发布时间】：2013-07-03 22:02:07
【问题描述】：

我想将一个值（单元格内容是一个 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

【问题讨论】：

你没有记录paste special operation。尝试重复你的录音......对于标准，你可以尝试这样的事情：..., Criteria1:=Sheets("your sheet name here").Range("A23")
对不起@KazJaw，我的代码中的表 1 =“理论”和表 2 =“实践”。我尝试使用您的代码，它至少在做一些事情，但它没有给我任何价值（只有自动过滤器中的空值），即使选定的单元格（A23）显示了正确的信息。我是 VBA 解决方案的新手...

标签： excel copy-paste autofilter vba

【解决方案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

【讨论】：

@d-dstroyer，感谢您的评论。表 1 =“理论”，表 2 =“实践”。尽管如此，对于我（作为一个全新的人）来说，我需要将您的代码放在我的代码中并没有意义。你能帮我解决这个问题吗？我以 KazJaw 解释的方式尝试过，但我想我忘了某处，不知何故，某事
好的，我进行了编辑以显示 PasteSpecial 命令的上下文。这对你有帮助吗？