
例如下图所示,左侧的“Sheet1”表的A、B两列包含一些水果名称及数量,现在需要用右侧“Sheet2”表B1:B7区域中的数值(用红色标识)替换“Sheet1”表筛选“苹果”后的数量。


方法一:使用辅助列
这个方法是用排序法把需要替换的数据放在一起再进行复制粘贴。即先添加一个“序号”辅助列,在其中输入数字序号,再用另一个辅助列对筛选后的数据进行标记,按第二个辅助列排序,再复制粘贴,最后对“序号”列排序还原原数据的排列顺序。具体步骤如下:
1.先取消筛选,在“Sheet1”表的C2、C3单元格分别输入数字“1”,“2”,选择这两个单元格后双击填充柄,将序号填充到C列。

2.筛选A列中的“苹果”。在D列第二行的单元格中输入公式:
=ROW()
在Excel中用如何使用VBA实现删除空行和空列
在exce中删除空行和空列的方法有很多,相对而言删除空行较为简单,只需进行筛选,将空白行筛选出来,删除即可,但要删除空列比较困难。因为你不能按列进行筛选删除。
然后向下填充公式到D列的所有可见单元格。

3.取消筛选,按D列排序,将全部“苹果”的数量排在一起。

4.复制“Sheet2”表B1:B7数据粘贴到“Sheet1”表的B2:B8区域。
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
Excel中右键菜单中部分功能不可用的图文解决步骤
我们知道对于计算机来说,所有的改动都要保存,如果不保存的话电脑是不会自动记忆用户做的改动的。Excel也一样,虽然它没有弹出保存提示,但实际上它已经在一个文件中写下了这个改动,这个文件就是“Excelxx.xlb”。