mshd.net
当前位置:首页 >> ExCEl vBA如何写一个不确定的高级筛选? >>

ExCEl vBA如何写一个不确定的高级筛选?

Sub 查找()On Error Resume NextDim icount%, arr, I%,

上图 或者发样表 joy.008@163.com 写清要求 感觉不难

worksheet_change事件中输入以下代码: Private Sub Worksheet_C

使用循环嵌套即可 如: do until 条件 for each rng in cells

没有不带颜色的选项,可以接下来增加一个语句,对结果区域清除格式: Sheets("唯一值

Sub 宏1()'' 宏1 宏'' Range("A

没图表,那个宏程序要根据你所在列和写筛选语言的。 示例: Dim i, a, j, x As I

说实在的,还真没怎么看明白你要求的输出格式。 给你一段VBA代码,你试下效果,再参照着进行修改吧。

从以下的示例中,以及FILTE这个对象的属性来看,无法遍历筛选列出的项目。我觉的可以换个方法,例如生

Sub tt() Cells(1, 1).Select Selection.Auto

网站首页 | 网站地图
All rights reserved Powered by www.mshd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com