Nếu trong trường hợp, không có điều kiện ngành, chỉ còn đk tỷ trọng 1 cp không vượt 10% và tổng tỷ trọng 100%, em chỉnh phần
Sub LamTuoiThamSo()
Dim sArr(), aNganh(), aData(), Res(), Dic As Object, ikey
Dim sRow&, sR&, i&, sCol&, iR&
Dim tmp As Double, dc As Double
Const ghNganh = 1...