EXCEL 列中的重复数字及其值

Question

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

我想要的是 Excel VBA 是：

我用 pivot table 做到了并且它有效，但我真的想用 VBA 来实现它，因为我有很多值。

我不擅长 Excel VBA 所以非常感谢你的帮助。

Answer 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 命令中删除第二个键和顺序。

EXCEL 列中的重复数字及其值

Duplicate number and it value in column EXCEL

excel

vba

conditional-formatting

duplicates