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
Cảm ơn bạn nhiều
Mã:
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
Chỉnh sửa lần cuối bởi điều hành viên: