Excel Vba 求助

Colorful1 发表于 2021-10-27 16:36

本帖最后由 Colorful1 于 2021-11-16 08:29 编辑

筛选行组重复数据后，俩行完全相同数据的行组从多到少进行排序
里面代码不太对。有大佬能够指导一下嘛
小白属实是迷{:301_972:}
链接: https://pan.baidu.com/s/1hoNJeFmqicMzr_qdNokC_w
提取码: uksb

Colorful1 发表于 2021-10-28 08:11

Sub 筛选重复项()
Range("A5:J600").Select
Selection.FormatConditions.AddUniqueValues'返回一个新的 UniqueValues 对象，该对象代表指定区域的条件格式规则
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 'FormatConditions.Count：优先表达FormatConditions变量。 SetFirstPriority将FormatConditions变量优先级值设置为 1，以便先计算该条件格式规则的优先级值，然后再计算工作表上的所有其他规则。
Selection.FormatConditions(1).DupeUnique = xlDuplicate '查找重复值
With Selection.FormatConditions(1).Font '指定以下字体、颜色、格式
   .Color = 16752384 '颜色设定
   .TintAndShade = 0 '设置颜色变浅或者变深
End With

With Selection.FormatConditions(1).Interior '定义对象内部
         .PatternColorIndex = xlAutomatic '查找到重复值，自动填充样式
         .Color = 13561798 '颜色设定
         .TintAndShade = 0 '设置颜色变浅或者变深
End With
Selection.FormatConditions(1).StopIfTrue = False '确定返回值后，不计算其他规则，直接返回
End Sub

Sub 排序()

Range("A5:J600").Select
Selection.Sort key1:=Range("A5"), order1:=xlAscending, Header:=xlGuess, _
   ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
   :=xlPinYin, DataOption1:=xlSortNormal
End Sub

需求：有一些行是完全重复的重复数量不定（有的2行，有的N行），找出完全重复内容，按重复数量排序，并高亮显示重复行

因为是刚入行，小白很多东西了解的比较少，只能把一个需求分成俩个功能来做，希望大神们帮一下忙{:301_1004:}

小能维尼 发表于 2021-10-27 18:07

直接把代码和截图贴出来，会让人更愿意去了解和关注你的问题。
不然还要运行带宏的Excel？

Anyling 发表于 2021-10-27 18:40

怕中病毒

笨笨家的唯一 发表于 2021-10-27 19:14

你直接把vba代码贴上来

Colorful1 发表于 2021-10-28 08:15

Colorful1 发表于 2021-10-28 08:11
Sub 筛选重复项()
Range("A5:J600").Select
Selection.FormatConditions.AddUniqueValues'返回一个 ...

https://z3.ax1x.com/2021/10/28/5bheCn.png

这是运行完有问题的截图{:301_977:}

祝福看到你 发表于 2021-10-28 18:49

加个辅助列, 用"COUNTIF"计算下出现次数再排序下, 会更简单些

页: [1]

吾爱破解 - 52pojie.cn's Archiver

Excel Vba 求助