Tạo câu từ dữ liệu cho trước ? (1 người xem)

[kegiaumat055]

Mình có dữ liệu đầu vào như thế này:

[TABLE="width: 256"]
[TR]
[TD="width: 64"]a1[/TD]
[TD="width: 64"]b3[/TD]
[TD="width: 64"]c5[/TD]
[TD="width: 64"]d6[/TD]
[/TR]
[TR]
[TD]a2[/TD]
[TD]b1[/TD]
[TD][/TD]
[TD]d7[/TD]
[/TR]
[/TABLE]

Và output sẽ là như thế này:

a1 b3 c5 d6
a1 b3 c5 d7
a1 b1 c5 d6
a1 b1 c5 d7
a2 b3 c5 d6
a2 b3 c5 d7
a2 b1 c5 d6
a2 b1 c5 d7

Các bạn giúp mình nhé ! Cảm ơn các bạn nhiều

 

[HungQuoc49]

Mình có dữ liệu đầu vào như thế này:


Và output sẽ là như thế này:

Các bạn giúp mình nhé ! Cảm ơn các bạn nhiều

Chạy code này xem sao

Public Sub NoiO()
Dim DL, Tam, r, rw, c
DL = Sheet1.Range("A1").CurrentRegion
With CreateObject("Scripting.Dictionary")
For r = 1 To UBound(DL)
.Add DL(r, 1), ""
Next r
Tam = .keys
For c = 2 To UBound(DL, 2)
.RemoveAll
For r = 0 To UBound(Tam)
For rw = 1 To UBound(DL)
If DL(rw, c) <> "" Then .Add Tam(r) & " " & DL(rw, c), ""
Next rw
Next r
Tam = .keys
Next c
End With
Sheet1.Range("D11", Sheet1.Range("D11").End(xlDown)).ClearContents
Sheet1.Range("D11").Resize(UBound(Tam) + 1, 1) = Application.Transpose(Tam)
End Sub