用VBA取消自动筛选(或者显示全部数据)

xyg111 · 发表于 2008-3-23 17:05

P7BnqDL9.rar (44.75 KB, 下载次数: 158)
我想将sheet 1 和2的内容复制到一个新建的sheet里面,但是我发现如果sheet1 和 sheet2中如果别人用了自动筛选
并且隐藏了数据,那么隐藏的数据就不会复制到新建的sheet里面,我想请教怎样将自动筛选去掉,或者show all也可以,我在网上找了一些方法但都没有成功,请大家帮忙,谢谢

oobird · 发表于 2008-3-23 17:11

ActiveSheet.UsedRange.AutoFilter

LangQueS · 发表于 2008-3-23 18:25

楼主可以录制宏。

xyg111 · 发表于 2008-3-23 18:27

谢谢楼上的帮助,可是我把ActiveSheet.UsedRange.AutoFilter 插入到我的程序中会报错啊,,,

run-time error '1004'

application-defined or object-defined error

请指教

yuwd3 · 发表于 2008-3-23 18:36

.AutoFilterMode = False

LangQueS · 发表于 2008-3-23 18:37

录制宏得到的：

Selection.AutoFilter

xyg111 · 发表于 2008-3-23 18:44

谢谢yuwd3的帮助，你的方法是正确的，,我先让要去掉自动筛选的sheet选中,然后,将AutoFilterMode 设为false,希望这个方法对以后碰到这个问题的人有所帮助

Sheets(sheet_Index).Select
ActiveSheet.AutoFilterMode = False

tonyibm · 发表于 2008-3-23 20:53

学习了，我以前一般都用，

range("a1").autofilter,

多谢，

射雕 · 发表于 2008-3-23 23:42

嗯，我也学习了！

以前我用的方法和tonyibm一样，用的时候一列一列的显示全部，画面一闪一闪的，很不爽。

0wchz · 发表于 2008-3-25 19:49

QUOTE:

以下是引用xyg111在2008-3-23 18:44:03的发言：

谢谢yuwd3的帮助，你的方法是正确的，,我先让要去掉自动筛选的sheet选中,然后,将AutoFilterMode 设为false,希望这个方法对以后碰到这个问题的人有所帮助

Sheets(sheet_Index).Select
ActiveSheet.AutoFilterMode = False

ActiveSheet.AutoFilterMode =True时如何呢,筛选出的行号是不规则的,请问怎磨把行号变成1-N,并且可以用来再次筛选呢,谢谢.

		自动登录	找回密码
密码			免费注册

[求助] 用VBA取消自动筛选(或者显示全部数据)

评分