VBA复制到自动过滤器

我想复制一个值（单元格内容是一个查找公式）从表1到表2.在表2中它需要在自动过滤器中填写。我记录了这个宏，但是我不能在“关键”内创建一个特殊的粘贴（只有这样的值）。VBA复制到自动过滤器

现在VBA只使用“咨询”值，如果单元格A23更改（由于查找公式），它不使用新值。

你能帮我一下吗？

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

来源

2013-07-03 Glennsta

你没有记录'粘贴特殊operation'。试着重复你的录音...对于标准你可以尝试这样的事情：'...，Criteria1：=表格（“你的表格名称在这里”）范围（“A23”）' –

对不起@KazJaw，Sheet 1 =“理论”和表2 =“实践”在我的代码。尽管选定的单元格（A23）显示正确的信息，但我试图使用您的代码，该代码至少做了一些事情，但它没有给出任何值（仅在自动筛选器中为空值）。我是一个全新的VBA解决方案... – Glennsta

这只是一个部分答案，因为我没有完全理解这个问题。在你的问题你menton“sheet1”和“sheet2”和“关键”;在代码中这些关键字不会出现，所以我不知道如何将代码与解释相关联。

至于具体点“执行粘贴特殊的 - 唯一的价值”，这是这样的：

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

来源

2013-07-03 08:18:46

@ d-dstroyer，感谢您的评论。表1 =“理论”和表2 =“实践”。尽管如此，对于我来说（作为一个全新的），我需要将你的代码放在我的代码中。你能帮我解决这个问题吗？我试图用KazJaw解释的方式，但我想我忘了某处，不知何故， – Glennsta

好吧，我编辑显示_PasteSpecial_命令的上下文。这对你有帮助吗？ –

VBA复制到自动过滤器

回答

相关问题