Lọc và tính dữ liệu trùng nhau =VBA

[mimili]

MÌnh không rành về VB, mong bạn giải thích rõ chi tiết ý nghĩa của đoạn code này

Sub Loc()
    [c7:c1000].SpecialCells(2).Offset(, -1) = "=COUNTIF(R7C7:RC7,RC7)"
    [b7:b1000].AutoFilter: Selection.AutoFilter 1, 1
    [b7].CurrentRegion.Copy
    [l7].Select: ActiveSheet.Paste: Application.CutCopyMode = False
    ActiveSheet.AutoFilterMode = False
    [o7] = "=SUMIF(R7C7:R1000C7,RC17,R7C[-10]:R1000C[-10])"
    [o7].Copy [o7].Resize(1000, 2)
    Selection = Selection.Value
    Union([b:b], [l:l]).Clear
    [p:p].Select
    Selection.NumberFormat = "#,##0.00"
    Selection.Copy
    Range("P1:P1000").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    [p1].Select
End Sub

Cảm ơn bạn nhiều