Code mình tùy biến lại và thêm 1 số hàm sau:
1. Sửa Sub Tổng hợp:
Sub ghiExcel_TongHop(ByVal jsonText As String, row As Long, ByVal loaiHD As Long, sSTT As Long)
Dim jsTH As Object, item As Object, itm As Object, subItms As Object, subItms2 As Object, l As Long
Dim ws As Worksheet...