Sửa lại cái sub TaoMaCT() chút.
Function TaomaCT(maCT As String) As String
Dim lrow As Long, arrData(), i As Long
Dim nam As Long, thang As Long, curYear As Long, curMonth As Long, stt As Long, sttMax As Long, maCT_tk As String, maCTMoi As String
lrow =...