Lấy chuỗi trong ký tự đặc biệt (2 người xem)

[loveiutk]

Em đã thử nhiều cách mà chưa được nên mạn phép lên đây thỉnh giáo các bác ạ. Tình hình là em có 2 hàng sau:

;G54;H263;K73;Y89;I93;O03;H76;Q90;Y21;D84;

;Noi dung 1;Noi dung 2;Noi dung 3;Noi dung4;Noi dung5;Noi dung6;Noi dung 7; Noi dung 8; Noi dung 9; Noi dung 10;

Em muốn ghép nó thành như thế này ạ:

G54-Noi dung 1; H263-Noi dung 2; K73-Noi dung 3; Y89-Noi dung 4;....

Xin các bác chỉ giáo ạ. Em có đính kèm file mẫu ở dưới.
Kính mong các bác giúp đỡ. Em cảm ơn nhiều ạ!

 

[phulien1902]

Em đã thử nhiều cách mà chưa được nên mạn phép lên đây thỉnh giáo các bác ạ. Tình hình là em có 2 hàng sau:

;G54;H263;K73;Y89;I93;O03;H76;Q90;Y21;D84;

;Noi dung 1;Noi dung 2;Noi dung 3;Noi dung4;Noi dung5;Noi dung6;Noi dung 7; Noi dung 8; Noi dung 9; Noi dung 10;

Em muốn ghép nó thành như thế này ạ:

G54-Noi dung 1; H263-Noi dung 2; K73-Noi dung 3; Y89-Noi dung 4;....

Xin các bác chỉ giáo ạ. Em có đính kèm file mẫu ở dưới.
Kính mong các bác giúp đỡ. Em cảm ơn nhiều ạ!

Đề xuất 1 cách:

Sub Test()
    Dim i, a, b, j, k
    a = Split(Range("A2"), ";")
    b = Split(Range("A3"), ";")
    For i = 1 To UBound(a)
        For j = 1 To UBound(b)
            If i = j Then
                k = k + 1
                Cells(2, 3).Offset(k) = a(i) & "-" & b(j)
            End If
        Next
    Next
End Sub

Click vào mặt cười nhé

 

[CHAOQUAY]

Em đã thử nhiều cách mà chưa được nên mạn phép lên đây thỉnh giáo các bác ạ. Tình hình là em có 2 hàng sau:

;G54;H263;K73;Y89;I93;O03;H76;Q90;Y21;D84;

;Noi dung 1;Noi dung 2;Noi dung 3;Noi dung4;Noi dung5;Noi dung6;Noi dung 7; Noi dung 8; Noi dung 9; Noi dung 10;

Em muốn ghép nó thành như thế này ạ:

G54-Noi dung 1; H263-Noi dung 2; K73-Noi dung 3; Y89-Noi dung 4;....

Xin các bác chỉ giáo ạ. Em có đính kèm file mẫu ở dưới.
Kính mong các bác giúp đỡ. Em cảm ơn nhiều ạ!

Giả định dữ liệu tại A1, A2. Số lượng dấu ";" trong 2 chuỗi là như nhau

C1=IF(ROW()>LEN($A$1)-LEN(SUBSTITUTE($A$1,";",""))-1,"",TRIM(MID(SUBSTITUTE(MID($A$1,2,LEN($A$1)-2),";",REPT(" ",200)),(ROW()-1)*200+1,200)&"-"&MID(SUBSTITUTE(MID($A$2,2,LEN($A$2)-2),";",REPT(" ",200)),(ROW()-1)*200+1,200)))

 

[loveiutk]