作者：绿色风
分类：
时间：2022-08-17
浏览：141
楼主
biaotiger1 |
Q：如何用VBA将自动筛选后的结果复制到其他工作表？
A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口输入代码如下：
- Sub 自动筛选复制可见单元格()
- Dim Crt As String
- Crt = InputBox("当前筛选列名称为“金额3”，请输入筛选条件", "提示")
- With Cells.CurrentRegion
- .AutoFilter Field:=4, Criteria1:=Crt '">=50000"
- .SpecialCells(xlCellTypeVisible).Copy _
- Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
- .AutoFilter
- End With
- End Sub
运行以上代码，弹出输入提示框提醒输入筛选条件。在输入提示框中输入“<4000”后回车，则满足条件的数据复制到sheet2工作表中。多次运行该代码，则每次满足条件的数据在sheet2工作表后空白行处追加。
详见如下附件。
 自动筛选复制可见单元格.rar
|
2楼
kevinchengcw |
学习一下 |
3楼
yizhbi |
学习了，谢谢 |
4楼
jimolaojiu |
好东东，下来学习一下。 |
5楼
sunia |
正需要呢，谢谢！ |
6楼
emyshu |
套到別的工作表中, 出現了"執行階段錯誤 '9':
陣列索引超出範圍" 的訊息, 請問是要修改以下的設定值嗎?
.SpecialCells(xlCellTypeVisible).Copy _
Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1) |
7楼
nmghyh |
学习了 |
8楼
抽屉 |
能否复制到其它XLS文件中的某个SHEET中去呢？ |
9楼
Donald_C |
Good good study，学习学习。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一