Lọc những dữ liệu trùng

[TrungChinhs]

Sau khi xem file chính của bạn thì mình mới hiểu rõ yêu cầu (mình hơi bị chậm hiểu)

Về phần lọc vẫn theo cách làm như mình đã nêu trên nhưng sau khi lọc phải dùng sumif để cộng. Trong bài mình viết thành sub để tự động hoá các công việc trên, muốn xem công thức thì đánh dấu (') vào đầu dòng xoá công thức ( 'Selection = Selection.Value ) và chạy lại code.

Khi vận dụng vào công việc thực tế bạn phải sửa lại địa chỉ vùng nguồn, vùng đích trong code cho phù hợp với bảng tính của bạn.

Sub Loc()
    [c23:c1000].SpecialCells(2).Offset(, -1) = "=COUNTIF(R23C7:RC7,RC7)"
    [b23:b100].AutoFilter: Selection.AutoFilter 1, 1
    [b23].CurrentRegion.Copy
    [l23].Select: ActiveSheet.Paste: Application.CutCopyMode = False
    ActiveSheet.AutoFilterMode = False
    [o23] = "=SUMIF(R23C7:R62C7,RC17,R23C[-10]:R62C[-10])"
    [o23].Copy [o23].Resize(10, 2)
    Selection = Selection.Value
    Union([b:b], [l:l]).Clear
    [m21].Select
End Sub

Chúc thành công.