em xin dính chính lại mong các anh, chị giúp em. Xin cảm ơn
À há !!! Gần hiểu rồi, làm đại, trật ráng chịu
Cứ thêm mã hàng của 2 bộ (bi nhiêu cũng chơi) rồi bấm nút
Dữ liệu trong bảng có giống dữ liệu thật hông ??? Sao bố trí có nấy cột trống chi dzậy ???
[GPECODE=vb]
Public Sub GanHieu()
Dim Hang, Kq, I, Vung, Mg, J, K, MgKq
Hang = [A2:I2].Value
Set Kq = Range([k2], [k2].End(xlToRight))
Set Vung = Range("A2").CurrentRegion
ReDim Mg(3 To Vung.Rows.Count, 1 To 1)
For I = 3 To Vung.Rows.Count
For J = 1 To 4
If Vung(I, J) <> "" Then
For K = 6 To 9
If Vung(I, K) <> "" Then
Mg(I, 1) = Mg(I, 1) & Vung(I, J) & Vung(I, K) & " "
End If
Next K
End If
Next J
Next I
ReDim MgKq(3 To Vung.Rows.Count, 1 To Kq.Columns.Count)
For I = LBound(Mg) To UBound(Mg)
For J = 1 To Kq.Columns.Count
If InStr(1, Mg(I, 1), Kq(J)) Then MgKq(I, J) = 1
Next J
Next I
[K3].Resize(Vung.Rows.Count - 2, Kq.Columns.Count) = MgKq
End Sub
[/GPECODE]
Thân
Híc
