Mình thấy code tại #13 là OK rồi, chỉ tham gia thêm 2 dòng đỏ
Sub ThaySumifs()
Dim Dic As Object
Dim i As Long, j As Long, k As Long
Dim Tmp As String
Dim Arr, Res
Sheet3.Range("A2").Resize(65000, 4).ClearContents 'Thêm dòng này
Arr = Range(Sheet1.[b8]...