Hỏi về code xác định vùng chứa các trang in đầu tiên. (1 người xem)

[khanhcang2]

Em có đoạn code để copy 1 hoặc 1 số trang in đầu tiên. Với bài tập em đang thực hành thì đoạn code để copy 4 trang in đầu tiên 10 lần như sau:

Sub Macro2()
    Dim i As Integer
    For i = 1 To 10 Step 1
    Rows("1:284").Select
    Selection.Copy
    Rows("285:285").Select
    Selection.Insert Shift:=xlDown
    Next
   End Sub

Vấn đề ở đây là em muốn Sub tự động xác định được 4 trang in đầu tiên của em tùy vào định dạng em sử dụng (4 trang in có thể có 284 hoặc 285,... tùy định dạng chiều cao hàng) để thay cho đoạn code "Rows("1:284").Select". Em cảm ơn mọi người!

 

[khanhcang2]

Mong được mọi người giúp đỡ ah!