http://jingyan.baidu.com/article/363872eceb134a6e4ba16ff7.html
用下面的VBA代码可直接把“Sheet2”表B列的数据粘贴到“Sheet1”表筛选后的区域。假如“Sheet1”表的数据区域为A1:B20，“Sheet2”表B列需要复制粘贴的数量为7个，先对“Sheet1”表A列筛选“苹果”，然后按Alt+F11打开VBA编辑器，在代码窗口中输入下列代码并运行即可。

Sub 粘贴时跳过隐藏行()
Dim Rng As Range
Set Rng = Sheet1.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

如果是公式列，则上述脚本可能有问题，需要将公式列内容复制成文本到另一例

XCEL中怎么把运用公式算出来的数据复制到另外一列