Sheet1 chưa bỏ đi những cột không cần thiết (mình đưa cả sheet NPP qua luôn)
Bạn test thử nha, thiếu sót gì nhờ anh chị khác bổ sung hoặc làm mới nhé!
Sub TachSheet()
Dim sPath As String, sWb As Workbook, dWb As Workbook, nWs As Worksheet, Dic As Object, NameArr(), I&, J&
Dim Ngay&, ThangNam As...