没有不带颜色的选项，可以接下来增加一个语句，对结果区域清除格式： Sheets("唯一值
worksheet_change事件中输入以下代码： Private Sub Worksheet_C
上图 或者发样表 joy.008@163.com 写清要求 感觉不难
Sub 查找()On Error Resume NextDim icount%, arr, I%,
赋值语句会丢失批注； 使用range对象的copy方法。
Sub 宏1()'' 宏1 宏'' Range("A
EXCEL中筛选含指定字符记录的方法： EXCEL中使用自动筛选，并不能筛选出含部分字符的记录；
Sub tt() Cells(1, 1).Select Selection.Auto
没图表，那个宏程序要根据你所在列和写筛选语言的。 示例： Dim i, a, j, x As I
使用循环嵌套即可 如： do until 条件 for each rng in cells