Excel Vba 求助

Colorful1

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

Colorful1

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行），找出完全重复内容，按重复数量排序，并高亮显示重复行

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

小能维尼

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

Anyling

怕中病毒

笨笨家的唯一

你直接把vba代码贴上来

Colorful1

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

这是运行完有问题的截图

祝福看到你

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