在Excel中粘贴时怎样跳过隐藏行.docxVIP

在Excel中粘贴时怎样跳过隐藏行 有时在筛选后需要将其他区域中的连续行数据复制粘贴到筛选区域，以替换筛选后的数据。由于筛选后的区域包含隐藏行，因而无法直接进行复制粘贴，否则部分数据会粘贴到隐藏行中。而如果复制后对选择筛选区域用“定位-可见单元格”的方法选择可见单元格，再按“Ctrl+V”进行粘贴，Excel会提示“......Excel无法粘贴信息，原因是复制区域与粘贴区域形状不同......”。遇到这种情况，可以用辅助列或VBA的方法来解决。 例如下图所示，左侧的“Sheetl”表的A、B两列包含一些水果名称及数量，现在需要用右侧“Sheet2”表B1:B7区域中的数值（用红色标识）替换“Sheetl”表筛选“苹果”后的数量。 A E C 水果b 教重* 4 苹果 113 ■7 苹果 102 S 苹果 444 9 苹果 167 12 苹果 451 17 苹果 413 19 苹果 :套v 21 ?签 23 www-excel1213 lcn _24=_ A B c 苹果 335 苹果 239 3 苹果 393 苹果 ITS s：_ 苹果 206 6 苹果 206 ，平 苹果 494 s 9 10 11 www.excelTSE lcn J_2_ 方法一：使用辅助列 这个方法是用排序法把需要替换的数据放在一起再进行复制粘贴。即先添加一个“序号”辅助列，在其中输入数字序号，再用另一个辅助列对筛选后的数据进行标记，按第二个辅助列排序，再复制粘贴，最后对，序号”列排序还原原数据的排列顺序。具体步骤如下: 先取消筛选，在“Sheetl”表的C2、C3单元格分别输入数字“1”，“2”，选择这两个单元格后双击填充柄，将序号填充到C列。 筛选A列中的“苹果”。在D列第二行的单元格中输入公式: =ROW() 然后向下填充公式到D列的所有可见单元格。  取消筛选，按D列排序，将全部“苹果”的数量排在一起 A E D - !■ 水果E 救里- 房号 标记 ■2- 苹果 113 3 .2 3 苹果 102 6 4 苹果 444 7 i==：~i 二 3 苹果 167 8 5 6 苹果 451 11 6 7 苹果 413 16 7 8 苹果 ■2.27 1S 8 9 梨 vurw1rvn 10 香蕉 118 -广 11 衡 复制“Sheet2表B1:B7数据粘贴到“Sheetl”表的B2:B8区域 按序号列排序，还原原数据的排列顺序。 A1 |C| |D| 1. 水果刁 数里- 序号 标记 ■2 梨 29Y 1 3 香莓 11S 121 苹果 335 3 4 梨 490 4 . 香蕾 120 5 苹果 ?39 6 7 S 苹果 393 7 8 9 苹果 179 8 9 10 梨 486 9 香篱 236 10 12 苹果 206 11 12、 15 梨 成 12? IOQ U 香蕾 13如 .e^eli r^o-cn 15 香荏 _p^_3 14 最后删除C、D两列，完成替换。 方法二：VBA代码 用下面的VBA代码可直接把“Sheet2”表B列的数据粘贴到“Sheetl”表筛选后的区域。假如“Sheet!表的数据区域为A1:B20,“Sheet2表B列需要复制粘贴的数量为7个，先对“Sheetl”表A列筛选“苹果”，然后按Alt+F11打开VBA编辑器，在代码窗口中输入下列代码并运行即可。 Sub粘贴时跳过隐藏行()DimRngAsRangeSetRng=Range(B2:B20).SpecialCells(xlCellTypeVisible)ForEachcellInRngWorksheets(Sheet2”).Cells(i+1,2).CopyActiveSheet.PasteDestination:=cellApplication.CutCopyMode=Falsei=i+1Ifi=7ThenEndNextEndSub