mshd.net
当前位置:首页 >> 求EXCEL VBA指点,关于自动筛选/高级筛选的结果的... >>

求EXCEL VBA指点,关于自动筛选/高级筛选的结果的...

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

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

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

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

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

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

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

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

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

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

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