首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >使用自动筛选粘贴特殊内容,并在自动筛选和粘贴完成后取消筛选

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

Stack Overflow用户
提问于 2018-08-23 07:35:21
回答 1查看 44关注 0票数 0

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

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

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

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

代码语言:javascript
复制
  copyRange4.SpecialCells(xlCellTypeVisible).Copy tgt.Range("E10")

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

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

EN

回答 1

Stack Overflow用户

回答已采纳

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

禁用Alert以绕过警报,

代码语言:javascript
复制
Application.DisplayAlerts = False
    copyRange4.SpecialCells(xlCellTypeVisible).Copy tgt.Range("E10")
Application.DisplayAlerts = True

要取消过滤,

代码语言:javascript
复制
If (Range).AutoFilterMode Then
    (Range).ShowAllData
End If

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

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

https://stackoverflow.com/questions/51976507

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档