Hỗ trợ chuyển 1 dòng thành 4 dòng cho VPN

[Tình nghĩa giang hồ]

Chào anh chị em có vấn đề về VPN nhờ anh chị hỗ trợ giúp.
Dữ liệu của em có 2 cột A và cột B, bắt đầu từ A2 đến dòng cuối.
Kết quả mong muốn của em ở cột E.
Kết quả mong muốn của em thì không cần tô màu, em tô màu chỉ để làm nổi bật vấn đề thôi.
Nếu dùng công thức hay VBA đều được cả.
Nhờ anh chị hỗ trợ giúp em trường hợp này.
Em cảm ơn anh chị.

 

[bebo021999]

Không hiểu lắm nhưng làm đại.
Công thức tại E2:

=CHOOSE(MOD(ROWS($1:1)-1,4)+1,"username "&INDEX($A$2:$A$5,INT((ROWS($1:1)-1)/4)+1) & " password " & INDEX($B$2:$B$5,INT((ROWS($1:1)-1)/4)+1),"username "&INDEX($A$2:$A$5,INT((ROWS($1:1)-1)/4)+1)& " attributes","vpn-group-policy AC-Users","service-type remote-access")

 

[befaint]

Siêu dễ hiểu mà .

 

[Tình nghĩa giang hồ]

Thật sự quá nhanh, quá tuyệt vời.
Em cảm ơn anh Bebo 02199 và anh BeFaint nhiều.

 

[bebo021999]

Góp vui thêm đoạn code VBA:

Option Explicit
Sub noichuoi()
Dim lr&, i&, j&, k&, rng, res()
lr = Cells(Rows.Count, "A").End(xlUp).Row
rng = Range("A2:B" & lr).Value
ReDim res(1 To UBound(rng) * 4, 1 To 1)
For i = 1 To UBound(rng)
    For j = 1 To 4
        k = k + 1
        Select Case j
            Case 1
                res(k, 1) = "username " & rng(i, 1) & " password " & rng(i, 2)
            Case 2
                res(k, 1) = "username " & rng(i, 1) & " attributes"
            Case 3
                res(k, 1) = "vpn-group-policy AC-Users"
            Case 4
                res(k, 1) = "service-type remote-access"
        End Select
    Next
Next
With Range("E2")
    .Resize(10000).ClearContents
    .Resize(k, 1).Value = res
End With
End Sub

 

[VetMini]

Đặt một name TEMPLATE
= { "username <> password ><"; "username <> attributes"; "vpn-group-policy AC-Users"; "service-type remote-access" }

Công thức:
=Substitute(Substitute(INDEX(TEMPLATE, Mod(Row()-1)+1), "<>", cong thức username), "><", công thức password)