[Xin Code VBA]Lấy dữ liệu từ bảng, chèn vào mẫu

Chia sẻ bởi:hands

★★★★★

‹ Tính tổng giá trị lớn nhất và... Cách đánh số thứ tự theo điều... ›

Quảng cáo

Em chào các bác!
Em lên xin các bác đoạn code có thể tự điền dữ liệu vào mẫu. (Giống với chức năng mail merge của worlds ấy ạ)
Trong file em post lên có 3 sheet

Sheet MẪU

Dữ liệu 1,2,3 là chỗ em muốn điền dữ liệu

Tên và ID sẽ giữ nguyên ạ

[*]Sheet Data

Em muốn lấy data từ bảng này (Dữ liệu 1,2,3) để điền vào bên MẪU

[*]Sheet MONG MUỐN

Sau khi code chạy xong em muốn kết quả nó sẽ thành như vậy. Có bao nhiêu data ở sheet data thì nó sẽ tạo ra từng ấy bản giống nhau ở kết quả.

Mong có bác nào rành VB giúp em. Em chỉ biết dùng lệnh excel kiểu google :D. Lúc trước dữ liệu còn chịu thủ công được chứ giờ nó nhiều quá.
Cám ơn các bác trước!

Trong data không có ID hả bạn?!

À có bác ạ. Là em thiếu sót. Cột ID với Cột tên ko đổi ạ, chỉ chèn dữ liệu 3 cái kia nên em quên mất

Bạn ấn Ctrl+L rồi kiểm tra lại kết quả xem nhé!

Option Explicit
Sub GPE()
    Dim Arr(), Res(1 To 1000, 1 To 1), i&, Lr$, k&
    Dim Rng As Range
    Set Rng = Sheets("Mau").Range("A1:B5")
    With Sheets("Data")
        Lr = .Range("A" & Rows.Count).End(xlUp).Row
        Arr = .Range("A2:D" & Lr).Value
    End With
    With Sheets("KQ")
        .Range("E1:F1000").Delete
        For i = 1 To UBound(Arr) * 5 Step 5
            Rng.Copy .Range("e" & i)
        Next i
    End With
    With Sheets("Data")
        For i = 1 To UBound(Arr)
            k = k + 1
            Res(k, 1) = Arr(i, 1)
            Res(k + 1, 1) = Arr(i, 2)
            Res(k + 2, 1) = Arr(i, 3)
            Res(k + 3, 1) = Arr(i, 4)
            Res(k + 4, 1) = ""
            k = k + 4
        Next i
    End With
    Sheets("KQ").Range("F1").Resize(k, 1).Value = Res
    MsgBox "Hoan Thanh"
    Sheets("KQ").Select
    Set Rng = Nothing
End Sub

www.giaiphapexcel.com/diendan/threads/xin-code-vba-l%E1%BA%A5y-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-b%E1%BA%A3ng-ch%C3%A8n-v%C3%A0o-m%E1%BA%ABu.163865/#post-1093086