excel跨表格如何使筛选隐藏的部分不被粘贴？
发布网友
发布时间：2022-04-21 21:49
共1个回答
热心网友
时间：2023-09-27 23:08
excel
粘贴时无法避开隐藏的单元格，必须是连续的单元格。
有时在筛选后需要将其他区域中的连续行数据复制粘贴到筛选区域，以替换筛选后的数据。由于筛选后的区域包含隐藏行，因而无法直接进行复制粘贴，否则部分数据会粘贴到隐藏行中。
方法一：使用辅助列
这个方法是用排序法把需要替换的数据放在一起再进行复制粘贴。即先添加一个“序号”辅助列，在其中输入数字序号，再用另一个辅助列对筛选后的数据进行标记，按第二个辅助列排序，再复制粘贴，最后对“序号”列排序还原原数据的排列顺序。具体步骤如下：
先取消筛选或隐藏，使用辅助列，如c1、c2单元格分别输入数字“1”，“2”，选择这两个单元格后双击填充柄，将序号填充到c列。
再次筛选原来的数据。
在d列第二行的单元格中输入公式：
=row()
然后向下填充公式到d列的所有可见单元格。
取消筛选，按d列排序。
对标记列排序把要粘贴的数据排在一起
复制数据粘贴到相应的区域。
重新按辅助列c列序号列排序，还原原数据的排列顺序。
方法二：vba代码
按alt+f11打开vba编辑器，在代码窗口中输入下列代码并运行即可。
sub
粘贴时跳过隐藏行()
dim
rng
as
range
set
rng
=
range("b2:b20").specialcells(xlcelltypevisible)
for
each
cell
in
rng
worksheets("sheet2").cells(i
+
1,
2).copy
activesheet.paste
destination:=cell
application.cutcopymode
=
false
i
=
i
+
1
if
i
=
7
then
end
next
end
sub
