Copy vào dòng trống trong Range

[hadoan-pap]

Dear mọi người!

E có 1 khó khăn nhỏ mong mọi ng giúp a!

E muốn paste 1 range vào dòng trống đầu tiên từ E5 thì làm thế nào ạ?

Có nghĩa từ dòng E5 đến dòng E20 là rỗng, dòng E21 trở đi có dữ liệu e muốn đoạn code nó chạy từ E5 để ktra điều kiện nếu hàng rỗng thì paste vào .... e tìm trên mạng thì toàn code nó Paste vào dòng trống ( các hàng dưới phải rỗng hết )... chứ nó k Paste vào trong khoảng E5:E20 dc ạ

 

[snow25]

Dear mọi người!

E có 1 khó khăn nhỏ mong mọi ng giúp a!

E muốn paste 1 range vào dòng trống đầu tiên từ E5 thì làm thế nào ạ?

Có nghĩa từ dòng E5 đến dòng E20 là rỗng, dòng E21 trở đi có dữ liệu e muốn đoạn code nó chạy từ E5 để ktra điều kiện nếu hàng rỗng thì paste vào .... e tìm trên mạng thì toàn code nó Paste vào dòng trống ( các hàng dưới phải rỗng hết )... chứ nó k Paste vào trong khoảng E5:E20 dc ạ

Vậy bạn xác định dòng nào trống thì paste vào thôi.Bạn gửi bản mẫu lên nhé.

 

[hadoan-pap]

Vậy bạn xác định dòng nào trống thì paste vào thôi.Bạn gửi bản mẫu lên nhé.

Hi !

Máy tớ k vào dc mạng, nên tớ vào trên dt :|

Tớ muốn paste 1 Range vào dòng trống đầu tiên trong khoảng range E5:E20 cậu ạ... tức là nó chỉ tìm trong range từ E5:E20 xem dòng nào trống thì nó paste Range khác vào ấy

 

[snow25]

Hi !

Máy tớ k vào dc mạng, nên tớ vào trên dt :|

Tớ muốn paste 1 Range vào dòng trống đầu tiên trong khoảng range E5:E20 cậu ạ... tức là nó chỉ tìm trong range từ E5:E20 xem dòng nào trống thì nó paste Range khác vào ấy

Vậy bạn dùng code này xác định dòng trống.
a=sheets("ten sheet").range("E20").end(xlup).row+1

 

[hadoan-pap]

Vậy bạn dùng code này xác định dòng trống.
a=sheets("ten sheet").range("E20").end(xlup).row+1

Hi Snow ^^!

Tớ k hiểu lắm, bạn có thể viết hộ tớ 1 đoạn dc k? Tớ k rõ biến a khai báo và cho chạy ntn nữa...

 

[snow25]

Hi Snow ^^!

Tớ k hiểu lắm, bạn có thể viết hộ tớ 1 đoạn dc k? Tớ k rõ biến a khai báo và cho chạy ntn nữa...

Sub timdongtrongvadien()
    Dim a As Long
    With Sheet1
        a = .Range("E20").End(xlUp).Row + 1
        .Range("E" & a).Value = "KK"
    End With
End Sub

Đây bạn tham khảo

 

[hadoan-pap]

Sub timdongtrongvadien()
    Dim a As Long
    With Sheet1
        a = .Range("E20").End(xlUp).Row + 1
        .Range("E" & a).Value = "KK"
    End With
End Sub

Đây bạn tham khảo

Cậu ơi cảm ơn cậu Nh nhe !

 

[befaint]

Sub timdongtrongvadien()
    Dim a As Long
    With Sheet1
        a = .Range("E20").End(xlUp).Row + 1
        .Range("E" & a).Value = "KK"
    End With
End Sub

Đây bạn tham khảo

Đề bài như vầy cơ mà "paste 1 Range vào dòng trống đầu tiên trong khoảng range E5:E20"
- "1 Range": Gồm 1 hoặc nhiều ô.
- "dòng trống đầu tiên trong khoảng range E5:E20": Chưa rõ xác định từ trên xuống hay từ dưới lên?
- "1 Range" kia có kích thước lớn hơn E5:E20 thì kết quả gán sao?

 

[snow25]

Đề bài như vầy cơ mà "paste 1 Range vào dòng trống đầu tiên trong khoảng range E5:E20"
- "1 Range": Gồm 1 hoặc nhiều ô.
- "dòng trống đầu tiên trong khoảng range E5:E20": Chưa rõ xác định từ trên xuống hay từ dưới lên?
- "1 Range" kia có kích thước lớn hơn E5:E20 thì kết quả gán sao?

Chắc là 1 ô Cells thôi bác à.
Nếu là 1 Range thì hên sui thôi bác à.

 

[hadoan-pap]

Cảm ơn mọi ng nh ạ... E đã sửa lại chút code của Snow đẻ phù hợp với bài toán của em rồi ạ. ^^