解决Excel筛选后粘贴数据避开隐藏单元格的方法

上次我们分享了在Excel中如何快速用颜色分隔数字区间标示，在筛选后需要将数据复制到可见单元格中，但通常的复制操作无法满足要求。下面将介绍一种实用方法来解决这个问题。

使用VBA宏实现数据粘贴到筛选可见单元格

首先打开Microsoft Office Excel 2007，新建文档并保存文件名为《Excel筛选后粘贴数据如何避开隐藏单元格.xlsm》。接着按下快捷键ALT F11打开VBE（宏）编辑界面，然后在菜单栏插入中选择模块（M）。在新插入的模块1中，复制以下VBA代码：

```vba

Sub 选数据粘贴到筛选可见()

Dim myr As Range, myrs As Range, r As Long, c As Long, i As Long, j As Long

Dim n As Long, mb(), m

Set myrs Selection

r

c

Set myr (Prompt:"选择增加列公式的单元格区域", Type:8)

ReDim mb(1 To )

n 0

For i 1 To

If myr.Cells(i).Value <> "" Then

n n 1

mb(n) myr.Cells(i).Row

End If

Next i

m myr.Cells(1).Formula

m Right(m, Len(m) - 1)

m Range(m).Column

For i 1 To c

For j 1 To r

myrs.Cells(j, i).Copy Cells(mb(j), m).Offset(0, i - 1)

Next j

Next i

End Sub

```

执行动态过程及效果展示

回到工作表窗口，使用“名称”筛选数据，然后不能直接选中“数量”列数据，而是在数据最后一列下填写公式引用“数量”值，例如`C2`，然后复制该公式到整列，使得每行都有对应的数值。接着选择需要复制的数据单元格区域，运行刚才创建的宏“选数据粘贴到筛选可见”。

结语

如果您觉得这篇文章对您有帮助，请不要吝啬您的支持！可以点击“投票点赞”或“收藏”以表达感谢。如果您还有任何疑问，请点击“我有疑问”，我们会竭诚为您解答。谢谢阅读！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。