Giúp đỡ công thức ghép chuỗi trong excel (1 người xem)

[alihung]

Em muốn xin công thức tại 1 ô mà kết quả của ô đó là việc ghép các chuỗi của những ô khác lại với nhau. Mô tả ở đây nó hơi khó, em có file đính kèm mô tả rõ hơn. Xin anh chị giúp đỡ. Cảm ơn mọi người.

 

[tienndbg]

Bạn sử dụng đoạn mã này nhé :

Sub Ghep()
Set KQ = Range("E1")
Set B = Range("A1")
KQ.Value = Range("C1").Value
Do While B.Value <> ""
KQ.Value = KQ.Value & "/" & B.Value & "," & B.Offset(0, 1).Value

Set B = B.Offset(1, 0)
Loop
KQ.Value = KQ.Value & "/" & Range("D1").Value
End Sub

 

[alihung]

Bạn sử dụng đoạn mã này nhé :

Sub Ghep()
Set KQ = Range("E1")
Set B = Range("A1")
KQ.Value = Range("C1").Value
Do While B.Value <> ""
KQ.Value = KQ.Value & "/" & B.Value & "," & B.Offset(0, 1).Value

Set B = B.Offset(1, 0)
Loop
KQ.Value = KQ.Value & "/" & Range("D1").Value
End Sub

Cảm ơn bạn nhiều a.