Cộng những giá trị duy nhất trong Excel

Giả sử bạn có một cột có chứa nhiều giá trị khác nhau , nhưng bạn chỉ muốn cộng những giá trị đó một lần thôi .

Ví dụ như hình dưới trong cột A , giá trị 1 xuất hiện 3 lần nhưng khi tính toán bạn chỉ tính nó là 1 . Tương tự như vậy giá trị 2 xuất hiện 3 lần nhưng chỉ coi là 2 …Như vậy bạn cần tính tổng trong cột A chỉ lấy một lần giá trị mà thôi và bạn cần tạo một Hàm sô SumUniqueValues các thức như sau :



Mở Excel và File cần tính toán . Bấm tổ hợp phím Alt_F11 , cửa sổ Visual Basic mở ra , bạn chọn menu Insert > Modules và dán theo nội dung bên dưới

Function SumUniqueValues(InputRange As Range) as Double
Dim cl As Range, UniqueValues As New Collection, uValue As Variant
    Application.Volatile
    On Error Resume Next
    For Each cl In InputRange
        UniqueValues.Add cl.Value, CStr(cl.Value)
    Next cl
    On Error GoTo 0
    SumUniqueValues = 0
    For Each uValue In UniqueValues
        SumUniqueValues = SumUniqueValues + uValue
    Next uValue
End Function

Quay trở về Excel và tại ô kết quả bạn gõ hàm
SumUniqueValues ( A1:A100 )