我正在使用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)
是带过滤器的范围。
https://stackoverflow.com/questions/51976507
复制相似问题