Lấy dữ liệu từ 2 sheet sang 1 form có sẵn (1 người xem)

[buithaiha]

Em có 1 file như sau. Giờ hiện tại có 2 ô là Số ĐT và Seri nằm ở giữa các dòng khác, em muốn lấy dữ liệu từ SHEET "SoDT" sang ô cạnh ô Số ĐT, từ Sheet "Seri" sang cạnh ô Seri để làm đề can dán lên sim mà nghĩ nát óc chả ra. Nhờ anh chị cao thủ giúp em với ạ.
Em xin cảm ơn rất nhiều ạ.

 

[tamthat]

Sub chay()
    Hangcuoi = Sheets("SoDt").Range("A" & Rows.Count).End(3).Row
    For i = 1 To Hangcuoi
        Sheets("Decan").Cells((i - 1) * 6 + 2, 2) = Sheets("SoDt").Cells(i, 1)
        Sheets("Decan").Cells((i - 1) * 6 + 3, 2) = Sheets("Seri").Cells(i, 1)
    Next
End Sub

Đây là file kết quả:

 

[buithaiha]

^^ Quá tuyệt vời luôn. Cảm ơn cao thủ rất nhiều vì đã giúp đỡ ạ.

 

[sealand]

Bằng công thức cũng được đấy chứ.
Tại ô nào đó trên dòng 1 ở sheet nào cũng được, chép công thức sau vào rồi kéo tuột xuống xem sao

=CHOOSE(MOD(ROW()-1,7)+1,"Số ĐT : " & INDEX( SoDt!$A$1:$A$200,INT(ROW()/7)+1),"Seri : " & INDEX(Seri!$A$1:$A$200,INT(ROW()/7)+1),"690đ/1 phút cho tất cả các cuộc gọi","Miễn phí 1000 phút/tháng cố định tới 1 TB","Cú pháp đăng ký: KB_SĐT gửi 789","MOBI ZONE+ SỐ ĐẸP","")

 

[buithaiha]

Bằng công thức cũng được đấy chứ.
Tại ô nào đó trên dòng 1 ở sheet nào cũng được, chép công thức sau vào rồi kéo tuột xuống xem sao

=CHOOSE(MOD(ROW()-1,7)+1,"Số ĐT : " & INDEX( SoDt!$A$1:$A$200,INT(ROW()/7)+1),"Seri : " & INDEX(Seri!$A$1:$A$200,INT(ROW()/7)+1),"690đ/1 phút cho tất cả các cuộc gọi","Miễn phí 1000 phút/tháng cố định tới 1 TB","Cú pháp đăng ký: KB_SĐT gửi 789","MOBI ZONE+ SỐ ĐẸP","")

Dạ cảm ơn anh ạ. Để em thử luôn.
Nhân tiện cho em hỏi.
Em có 1 file như sau.
Sheet "Decan2" là em kéo thủ công bằng tay, với mỗi trang là 30 số.
Có đoạn code nào chạy sao cho 30 số vào 1 trang giống như Sheet "Decan2" em vừa làm ko ạ?
Em đã tạo 1 sheet "Test" có sẵn dữ liệu rồi, nhờ cao nhân giúp em với ạ.

 

[buithaiha]

Em dùng lệnh thấy cũng OK ạ