ค้นหาค่าซ้ำที่ไม่รู้จักและส่งกลับค่าใน Excel

วิธีที่ง่ายที่สุดคือ Pivot Table แต่นี่คือมาโครเล็กน้อย:

Sub SuperSimpleFrequencyTable()
    Dim C As Range, A As Range, B As Range

    Set A = Range("A:A")
    Set B = Range("B:B")

    A.Copy B
    B.RemoveDuplicates Columns:=1, Header:=xlNo
    Set C = B.SpecialCells(xlCellTypeConstants).Offset(0, 1)

    With C
        .Formula = "=countif(A:A,B1)"
        .Value = .Value
    End With
End Sub

แต่ละรายการปรากฏในคอลัมน์ B และถัดจากรายการนั้น เป็นการนับจำนวนครั้งที่รายการนั้นเกิดขึ้นในคอลัมน์ A