文章预览
学习Excel技术，关注微信公众号： excelperfect 标签： VBA 本文的代码学习收集自 mrexcel.com ，其主要作用是在筛选数据中复制数据时，可以按原结构粘贴所复制的数据。具体如下文。 下图 1 所示为示例数据。 图 1 我们对列 C 进行筛选，如下图 2 所示。 图 2 复制单元格区域 B2:B10 ，然后粘贴到以单元格 E2 开始的区域，结果如下图 3 所示。正如所见，我们只能看到部分数据，其它数据被隐藏行所隐藏了。 图 3 如果展开隐藏行，实际的粘贴结果如下图 4 所示。 图 4 接下来，我们使用下面的代码来进行相同的复制粘贴。代码如下： '用途 : '复制-粘贴(仅值) : '从筛选的区域到筛选的区域 '从复制的区域到未筛选的区域 '从未筛选的区域到筛选的区域 '对隐藏列没作用 Sub CopyVisibleToVisible2() Dim rngA As Range Dim rngB As Range, rngBB As Range Dim r As Range Dim Title As
………………………………
