Hỗ trợ chuyển một dòng thành hai dòng

[Tình nghĩa giang hồ]

Chào anh chị, em có vấn đề này nhờ anh chị hỗ trợ giúp em.
Dữ liệu của em gồm 2 cột: cột A và cột B
Kết quả mong muốn của em là cột E và cột F
Quy luật:
Một dòng A, B sẽ thành 2 dòng E, F
Cột E: bắt đầu là chữ H, kết thúc là chữ I

Cột F: quy luật như sau:
9 số 0 cộng với mã, còn tên mã thì đưa xuống dươi thôi.
Nhờ anh chị hỗ trợ giúp em trường hợp này.
Em cảm ơn anh chị

 

[BuiQuangThuan]

Cột F: quy luật như sau:
9 số 0 cộng với mã, còn tên mã thì đưa xuống dươi thôi.
Nhờ anh chị hỗ trợ giúp em trường hợp này.

Thử code này xem sao

Sub ABC()
Dim sArr(), Res(), i&, iR&, K&
With Sheet1
    iR = .Range("A" & Rows.Count).End(3).Row
    sArr = .Range("A2:B" & iR).Value
    ReDim Res(1 To UBound(sArr) * 2, 1 To 2)
    K = 1
    For i = 1 To UBound(sArr)
        K = K + 2
        Res(K - 2, 1) = "H"
        Res(K - 1, 1) = "I"
        Res(K - 2, 2) = "'000000000" & sArr(i, 1)
        Res(K - 1, 2) = sArr(i, 2)
    Next
    .Range("H2").Resize(UBound(sArr) * 2, 2).Value = Res
End With
End Sub

 

[Tình nghĩa giang hồ]

Thử code này xem sao

Sub ABC()
Dim sArr(), Res(), i&, iR&, K&
With Sheet1
    iR = .Range("A" & Rows.Count).End(3).Row
    sArr = .Range("A2:B" & iR).Value
    ReDim Res(1 To UBound(sArr) * 2, 1 To 2)
    K = 1
    For i = 1 To UBound(sArr)
        K = K + 2
        Res(K - 2, 1) = "H"
        Res(K - 1, 1) = "I"
        Res(K - 2, 2) = "'000000000" & sArr(i, 1)
        Res(K - 1, 2) = sArr(i, 2)
    Next
    .Range("H2").Resize(UBound(sArr) * 2, 2).Value = Res
End With
End Sub

Em đã chạy thành công, cảm ơn anh rất nhiều.

 

[HUONGHCKT]

Chào anh chị, em có vấn đề này nhờ anh chị hỗ trợ giúp em.
Dữ liệu của em gồm 2 cột: cột A và cột B
Kết quả mong muốn của em là cột E và cột F
Quy luật:
Một dòng A, B sẽ thành 2 dòng E, F
Cột E: bắt đầu là chữ H, kết thúc là chữ I

Cột F: quy luật như sau:
9 số 0 cộng với mã, còn tên mã thì đưa xuống dươi thôi.
Nhờ anh chị hỗ trợ giúp em trường hợp này.
Em cảm ơn anh chị

Bạn thử xem file. Nhấn mặt cười để tận hưởng kết quả tại H2. Các vấn đề vè kẻ khung... bạn tự làm

 

[Tình nghĩa giang hồ]

Bạn thử xem file. Nhấn mặt cười để tận hưởng kết quả tại H2. Các vấn đề vè kẻ khung... bạn tự làm

Em cảm ơn anh ạ.