解决方案如下：
把下面的宏复制到模块中
然后 运行“一键复制筛选结果”即可
结果你一定会满意的！
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
