mshd.net
当前位置:首页 >> ExCEl vBA中高级筛选有代码吗?我用宏录制后编程老... >>

ExCEl vBA中高级筛选有代码吗?我用宏录制后编程老...

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

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

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

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

赋值语句会丢失批注; 使用range对象的copy方法。

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

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

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

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

Workbooks(8).Worksheets(1).cells.AutoFilter 加上单元

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