Nhờ ghép chuỗi ký tự trong 2 ô (có ký tự Alt +Enter) (2 người xem)

[nghiank09]

Chào mọi người,

Nhờ mọi người giúp mình ghép chuỗi từ 2 ô, trong 2 ô này đều có ký tự Alt + Enter. Mọi người xem hình sẽ rõ:


Mình xin gửi kèm file.
Cám ơn mọi người rất nhiều. Chúc mọi người sức khỏe.

 

[snow25]

Chào mọi người,

Nhờ mọi người giúp mình ghép chuỗi từ 2 ô, trong 2 ô này đều có ký tự Alt + Enter. Mọi người xem hình sẽ rõ:
View attachment 282824

Mình xin gửi kèm file.
Cám ơn mọi người rất nhiều. Chúc mọi người sức khỏe.

Dùng VBA tách ra rồi ghép lại là được.

 

[HUONGHCKT]

Chào mọi người,

Nhờ mọi người giúp mình ghép chuỗi từ 2 ô, trong 2 ô này đều có ký tự Alt + Enter. Mọi người xem hình sẽ rõ:
View attachment 282824

Mình xin gửi kèm file.
Cám ơn mọi người rất nhiều. Chúc mọi người sức khỏe.

Dùng tạm code sau:

Option Explicit

Sub Ghep()
Dim i&, j&, Lr&, t&, Arr(), Res(), S1, S2
With Sheet1
Lr = .Cells(100000, 1).End(xlUp).Row
Arr = .Range("A2:D" & Lr).Value
ReDim Res(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
    S1 = Split(Arr(i, 3), Chr(10))
    S2 = Split(Arr(i, 4), Chr(10))
    t = t + 1
    For j = 0 To UBound(S1)
        If Res(t, 1) = Empty Then Res(t, 1) = S1(j) & " năm sinh " & S2(j) Else Res(t, 1) = Res(t, 1) & Chr(10) & S1(j) & " năm sinh " & S2(j)
    Next j
Next i
.Range("E2").Resize(t, 1) = Res
End With
End Sub

 

[donghung1512]

Chào mọi người,

Nhờ mọi người giúp mình ghép chuỗi từ 2 ô, trong 2 ô này đều có ký tự Alt + Enter. Mọi người xem hình sẽ rõ:
View attachment 282824

Mình xin gửi kèm file.
Cám ơn mọi người rất nhiều. Chúc mọi người sức khỏe.

Gọi là bước đầu mình thực hành. Công thức có vẻ hơi dài

 

[nghiank09]

Dùng tạm code sau:

Option Explicit

Sub Ghep()
Dim i&, j&, Lr&, t&, Arr(), Res(), S1, S2
With Sheet1
Lr = .Cells(100000, 1).End(xlUp).Row
Arr = .Range("A2:D" & Lr).Value
ReDim Res(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
    S1 = Split(Arr(i, 3), Chr(10))
    S2 = Split(Arr(i, 4), Chr(10))
    t = t + 1
    For j = 0 To UBound(S1)
        If Res(t, 1) = Empty Then Res(t, 1) = S1(j) & " năm sinh " & S2(j) Else Res(t, 1) = Res(t, 1) & Chr(10) & S1(j) & " năm sinh " & S2(j)
    Next j
Next i
.Range("E2").Resize(t, 1) = Res
End With
End Sub

Cám ơn bạn, code chạy mượt như Sunsilk

Bài đã được tự động gộp: 3/11/22

Cám ơn bạn @donghung1512 và bạn @snow25 đã hỗ trợ