EXCEL列中的重复数字及其值[关闭]

【问题标题】：Duplicate number and it value in column EXCEL [closed]EXCEL列中的重复数字及其值[关闭]
【发布时间】：2018-04-11 21:09:33
【问题描述】：

我有一个包含两列的 excel 文件。 Excel截图如下：

我想要的是一个 Excel VBA：

我是用数据透视表做的，它可以工作，但我真的很想用 VBA 来做，因为我有很多值。

我不擅长 Excel VBA，因此非常感谢您的帮助。

【问题讨论】：

在 A 列排序，然后使用条件格式隐藏重复项。
请自己尝试并寻求帮助以解决您的问题...通常，这里的人不会在您未先尝试的情况下为您提供代码

标签： vba excel duplicates conditional-formatting

【解决方案1】：

Option Explicit

Sub wqewrty()
    With Worksheets("sheet1").Cells(1, 1).CurrentRegion
        .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _
                    Key2:=.Columns(2), Order2:=xlAscending, _
                    Orientation:=xlTopToBottom, Header:=xlNo
        With .Columns(1).Offset(1, 0)
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=$A2=$A1"
            .FormatConditions(1).NumberFormat = ";;;"
        End With
    End With
End Sub

我假设您想将 B 列用作 A 列上主排序键的辅助排序键。如果不是，请从 .Sort 命令中删除第二个键和顺序。

【讨论】：

今天有好事发生吗？我没想到会有答案。
有时候我只是想看看我能不能正确地输入代码。