Sort dữ liệu theo giới tính và năng lực xếp nhóm khá dể
Sub XYZ()
Dim Sh As Worksheet
Dim arr(), aDiem, a, b, res()
Dim soHS&, soNhom&, N&, i&, j&, k&, gt&
Set Sh = Sheets("8a2")
arr = Sh.Range("D2", Sh.Range("E" & Rows.Count).End(xlUp)).Value
soHS = UBound(arr)
On Error Resume...