Xin giúp code lưu bảng tính

[hoang0569]

Em gửi File anh chị xem giúp, xin cảm ơn.

 

[phulien1902]

Em gửi File anh chị xem giúp, xin cảm ơn.

Thử:

Sub abc()
    Dim LR As Long
    LR = Range("P" & Rows.Count).End(xlUp).Row + 14
    With Sheets(1)
        .Range("B4:D18").Copy
        .Range("p2:P" & LR).Offset(1).PasteSpecial xlValues
       .Range("p2:P" & LR).Offset(1).Resize(, 3).PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
End Sub

 

[hoang0569]

Cảm ơn anh, nhưng ý e là mỗi lần lưu bảng tính mới nó sẽ không bị đè lên lần lưu trước và kể cả dữ liệu trong bảng tính không đủ vẫn lưu cả vùng đã chọn, em gửi File anh chị xem giúp lại

 

[phulien1902]

Cảm ơn anh, nhưng ý e là mỗi lần lưu bảng tính mới nó sẽ không bị đè lên lần lưu trước và kể cả dữ liệu trong bảng tính không đủ vẫn lưu cả vùng đã chọn, em gửi File anh chị xem giúp lại

Như trong File tôi gửi bạn xem có gì chưa ổn?

 

[hoang0569]

Em gửi File anh xem giúp.

Bài đã được tự động gộp: 24/7/18

Em gửi File anh xem giúp.

 

[phulien1902]

Em gửi File anh xem giúp.

Bài đã được tự động gộp: 24/7/18

Em gửi File anh xem giúp.

Lần 1 số liệu đầu vào và đầu ra của bạn là gì? Lần 2 đầu vào và đầu ra là gì?
Tôi không hiểu ý của bạn.

 

[hoang0569]

Xin lỗi, em trình bày không rõ, em gửi lại File a xem giúp nhé, cảm ơn anh nhiều

 

[chisinhvnn]

Xin lỗi, em trình bày không rõ, em gửi lại File a xem giúp nhé, cảm ơn anh nhiều

file bạn gì mà cả tá hàng vậy. Không biết phải do máy mình không, không tải file xuống được

 

[hoang0569]

Mạng em hôm nay yếu quá, up mãi không được, lúc được thì cả tá luôn ...hihi. em gửi lại nhé

 

[chisinhvnn]

Mạng em hôm nay yếu quá, up mãi không được, lúc được thì cả tá luôn ...hihi. em gửi lại nhé

Không phải, hàng ở đây là phần mền virut của mình báo đấy. Ảnh bài 8

 

[Ba Tê]

Xin lỗi, em trình bày không rõ, em gửi lại File a xem giúp nhé, cảm ơn anh nhiều

File nhiễm Virus, cộng thêm hàng ngàn Names rác.
Bạn muốn mỗi lần copy thì nối tiếp xuống? Vậy thì phải "Ghi" lại chỗ nào đó là đã copy mấy lần để "nó" biết là sẽ Paste vào đâu.
Nếu đồng ý thì bạn xem file này, Ô L1 là "thuốc".

 

[phulien1902]

Xin lỗi, em trình bày không rõ, em gửi lại File a xem giúp nhé, cảm ơn anh nhiều

Bài này của bạn làm hơi khó, lý do không xác định được dòng cuối của dữ liệu.
Hơn nữa, số liệu của bạn rời rạc(nhiều Cell trống), nhiều dòng trống. Trong thực tế sẽ không có những bài toán như của bạn.

 

[hoang0569]

Rất cảm ơn các anh(chị) đã quan tâm giúp.

 

[hoang0569]

Anh ơi, code thay đổi thế nào khi không copy lân xuống dưới mà sang phải không anh?

 

[Ba Tê]

Anh Ba Tê ơi, File của anh có thể giới hạn Copy tới số nhất định thì quay lại từ đầu k? cảm ơn anh.

Xóa hết bảng từ cột M-O
Xóa luôn L1 sẽ quay lại từ đầu thôi.
----------------------------------------------
Cái gì vậy Trời! Mới thấy câu hỏi, trả lời xong lại thành câu hỏi khác.

Anh ơi, code thay đổi thế nào khi không copy lân xuống dưới mà sang phải không anh?

Muốn gì cũng được nhưng chỉ 1 mà thôi.
Thay đổi "xoành xoạch" ai chịu nỗi.