I have one question, please help me?

鱼灵 · 发表于 2006-7-14 09:52

兰老师：

如何把下面一列，用宏执行以后，下面的名称都是唯一的。（就是去除同名的）

怎么样可以做到？

部件类别

CPU

显示卡(独立)

主板

CD-ROM驱动器

DVD-ROM驱动器

机箱

兰色幻想 · 发表于 2006-7-14 10:07

不用宏也可以,直接用高级筛选---筛选不重值,如果一定要用宏,那就录制一个高级筛选操作的宏

流星 · 发表于 2006-7-14 10:12

本期数组培训中将会说到这个问题

兰色幻想 · 发表于 2006-7-14 10:20

Application.ScreenUpdating = False
Dim p&
   p = [a65536].End(xlUp).Row
    [e:e].ClearContents
    Range("a1:a" & p).AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("e1"), Unique:=True
Application.ScreenUpdating = True

鱼灵 · 发表于 2006-7-14 10:40

非常感谢

thelastdance · 发表于 2016-9-3 17:18

哇塞，学习学习

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