excel表格有删选怎么复制

1.带筛选的excel 怎么复制粘贴

“复制excel筛选之后的数值”的操作步骤是：

1、打开Excel工作表；

2、对数据进行筛选，然后直接复制筛选后的数据；

3、在目标单元格，完成“粘贴”；

4、如果直接复制筛选数据，会使得隐藏的单元格都粘贴出来，那么选中筛选数据，按Ctrl+G，“定位条件”中，选择“可见单元格”；

5、确定后，可见单元格处于选中状态，然后复制，并粘贴到目标区域，不符合筛选条件的数据不会一同被粘贴。

2.如何在excel表格中对自动筛选后的结果有选择的进行复制?

解决方案如下：

把下面的宏复制到模块中

然后 运行“一键复制筛选结果”即可

结果你一定会满意的！

Sub 一键复制筛选结果（）

'

' 许旭滨写于 2011年02月17日 15:38:35

Range("A2").Select

SendKeys "{down}", True

选取至最右下角数值

Selection.Copy

End Sub

Private Sub 选取至最右下角数值（）

On Error GoTo Err

Dim 最后一行 As Long， 最后一列 As Long

最后一行 = ActiveSheet.Cells.Find("*", , xlValues, , xlByRows, 2).Row

最后一列 = ActiveSheet.Cells.Find("*", , xlValues, , xlByColumns, 2).Column

If ActiveCell.Row >； 最后一行 And ActiveCell.Column >； 最后一列 Then Exit Sub

Range(ActiveCell, Cells（最后一行， 最后一列））.Select

Static y As Integer

If y = 3 Then

y = 1

Else

y = y + 1

End If

On Error GoTo 0

On Error Resume Next

Selection.SpecialCells(xlCellTypeVisible).Select ' '只选择可见单元格，忽略被筛选掉或被隐藏的单元格

If Err.Number = 1004 Then

Application.StatusBar = String(y， "*") & "【选取至最右下角】：无法对当前选取区域进行选择可见单元格的操作！"

Else

Application.StatusBar = String(y， "√") & "【选取至最右下角】：成功选取当前区域中的可见单元格！"

End If

Err:

End Sub