有了下面这个在Excel中粘贴时怎样跳过隐藏行教程,不懂在Excel中粘贴时怎样跳过隐藏行的也能装懂了,赶紧get起来装逼一下吧!
【 tulaoshi.com - Excel教程 】
有时在筛选后需要将其他区域中的连续行数据复制粘贴到筛选区域,以替换筛选后的数据。由于筛选后的区域包含隐藏行,因而无法直接进行复制粘贴,否则部分数据会粘贴到隐藏行中。而如果复制后对选择筛选区域用定位→可见单元格的方法选择可见单元格,再按Ctrl+V进行粘贴,Excel会提示 Excel无法粘贴信息,原因是复制区域与粘贴区域形状不同。遇到这种情况,可以用辅助列或VBA的方法来解决。
例如下图所示,左侧的Sheet1表的A、B两列包含一些水果名称及数量,现在需要用右侧Sheet2表B1:B7区域中的数值(用红色标识)替换Sheet1表筛选苹果后的数量。
方法一:使用辅助列
这个方法是用排序法把需要替换的数据放在一起再进行复制粘贴。即先添加一个序号辅助列,在其中输入数字序号,再用另一个辅助列对筛选后的数据进行标记,按第二个辅助列排序,再复制粘贴,最后对序号列排序还原原数据的排列顺序。具体步骤如下:
1.先取消筛选,在Sheet1表的C2、C3单元格分别输入数字1,2,选择这两个单元格后双击填充柄,将序号填充到C列。
2.筛选A列中的苹果。在D列第二行的单元格中输入公式:
=ROW()
然后向下填充公式到D列的所有可见单元格。
3.取消筛选,按D列排序,将全部苹果的数量排在一起。
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)4.复制Sheet2表B1:B7数据粘贴到Sheet1表的B2:B8区域。
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)5.按序号列排序,还原原数据的排列顺序。
最后删除C、D两列,完成替换。
方法二:VBA代码
用下面的VBA代码可直接把Sheet2表B列的数据粘贴到Sheet1表筛选后的区域。假如Sheet1表的数据区域为 A1:B20,Sheet2表B列需要复制粘贴的数量为7个,先对Sheet1表A列筛选苹果,然后按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
来源:http://www.tulaoshi.com/n/20160219/1627643.html
看过《在Excel中粘贴时怎样跳过隐藏行》的人还看了以下文章 更多>>