问使用自动筛选粘贴特殊内容，并在自动筛选和粘贴完成后取消筛选
EN

Stack Overflow用户

提问于 2018-08-23 07:35:21

回答 1查看 44关注 0票数 0

我正在使用this post的解决方案自动筛选表，并将选定的列粘贴到另一个工作表中。

它正在做我想让它做的事情，只有一个例外。我正在从一个使用过滤下拉菜单的表中进行复制。因此，在复制时会弹出以下消息：The name already exists

本博客中提供的解决方案不是一个选项，因为源表依赖于其中的命名值。

有没有其他语句可以添加到下面的代码中，以使其粘贴特殊？

  copyRange4.SpecialCells(xlCellTypeVisible).Copy tgt.Range("E10")

如果没有，可以添加一些东西来选择"Yes“，而不会出现弹出窗口吗？

最后，在粘贴到我的目标之后，是否可以添加额外的一行来取消对源文件的过滤？

回答已采纳

发布于 2018-08-23 07:54:13

禁用Alert以绕过警报，

Application.DisplayAlerts = False
    copyRange4.SpecialCells(xlCellTypeVisible).Copy tgt.Range("E10")
Application.DisplayAlerts = True

要取消过滤，

If (Range).AutoFilterMode Then
    (Range).ShowAllData
End If

其中，(Range)是带过滤器的范围。

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/51976507

复制

相似问题

问使用自动筛选粘贴特殊内容，并在自动筛选和粘贴完成后取消筛选EN