如何在excel表格中对自动筛选后的结果有选择的进行复制?
发布网友
发布时间：2022-03-29 23:40
我来回答
共3个回答
热心网友
时间：2022-03-30 01:10
解决方案如下：
把下面的宏复制到模块中
然后 运行“一键复制筛选结果”即可
结果你一定会满意的！
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
热心网友
时间：2022-03-30 02:28
有图表来看更好些，这样不太好懂。
1.要复制C1:F1，直接选中复制就行了；
2.建宏：可以在工具=》宏=》录制宏。就可先录制，然后再操作，再按停止。就可以了。
复制C1:F1的宏如下：
Sub COPY()
Range("C1:F1").Select
Selection.Copy
End Sub
热心网友
时间：2022-03-30 04:02
EXCEL中，要对筛选后的数据进行替换操作，应遵循先选中后操作的方法，具体步骤如下：
1、选中筛选结果区域。
2、按F5或CTRL+G快捷键，调出定位对话框。
3、点击定位条件，选择可见单元格，单击确定。
4、这时再进行复制操作即可。
5、在EXCEL中，要对筛选结果进行其他操作，都可以使用此方法，先对筛选结果选中。
