Kiểm tra lại nhé.
Chạy A_tonghop_Ndk
---
Trước khi chạy: alt + F11 --> tools --> references --> tìm và tích chọn microsoft scripting runtime
Option Explicit
Sub A_tonghop_Ndk()
Dim Nguon
Dim ID, maTT
Dim Kq
Dim y, m, d, dt
Dim rws, cls
Dim i, j, k, Z
Dim dicTH As New Scripting.Dictionary...