Sub test()
Dim toanbonhanvien As Range, nv As Range, data_nv As Range, dac_tinh As Range
Dim res_col As Integer
Dim header As Variant
Dim header_item As String
Set toanbonhanvien = [E5:E11]
header = [F4:L4].Value
Dim r As Long, toDel As Range
For Each nv In toanbonhanvien
Set data_nv = nv.Offset(, 1).Resize(, 7)
For Each dac_tinh In data_nv
If Len(dac_tinh) > 0 Then
header_item = header(1, dac_tinh.Column - 5)
With [H16]
.Offset(r, 0) = nv.Value
.Offset(r, 1) = header_item
.Offset(r, 2) = dac_tinh.Value
End With
r = r + 1
End If
Next dac_tinh
Next nv
For Each nv In [H16].Resize(r)
If nv.Value = nv.Offset(1).Value Then
If toDel Is Nothing Then
Set toDel = nv.Offset(1)
Else
Set toDel = Excel.Union(toDel, nv.Offset(1))
End If
End If
Next nv
toDel.Value = ""
End Sub
https://facebook.com/569100319856001_1146473628785331
