Xin cảm ơn bạn,file bạn làm giúp mình với trường hợp ít dòng dữ liệu thì ok nhưng file của mình nhiều lúc dữ liệu lên đến hơn 200 dòng nếu vậy muốn in phải bấm hơn 200 lần cũng hơi mất thời gian.Mình muốn sử dụng vòng lặp cho trường hợp này thì có sử dùng được không(cái mình muốn là truyền 1 phát ra cả đống như kiểu in bảng điểm cho học sinh mà họ chỉ thay mỗi tên với lớp thôi ấy).
Minh thường sử dụng vòng lặp như bên dưới nhưng file này có nhiều ô quá lên không biết cách để sử dụng nó như thế nào cả.
Sub Button32732_Click()
Dim COPY As Worksheet
Set COPY = Sheets("DU LIEU COPY")
Dim DES As Worksheet
Set DES = Sheets("Mau")
Dim i As Integer
Dim j As Integer
j = 5
DES.Rows(j + 2 & ":" & j + 10000).Delete
For i = 2 To 10000
If COPY.Range("B" & i).Value = "" Then Exit For
DES.Range("A" & j) = COPY.Range("E" & i)
DES.Range("B" & j) = COPY.Range("F" & i)
DES.Range("E" & j - 1) = COPY.Range("G" & i)
DES.Range("E" & j) = COPY.Range("D" & i)
DES.Range("E" & j + 1) = COPY.Range("C" & i)
If COPY.Range("B" & i + 1).Value = "" Then Exit For
DES.Rows(j - 1 & ":" & j + 1).Select
Selection.COPY
DES.Rows(j + 2 & ":" & j + 2).Select
DES.Paste
j = j + 3
Next i
MsgBox "Success!"
Exit Sub
abc:
MsgBox "Co loi xay ra"
End Sub
