Xin giúp đỡ code copy cột từ trên xuống

[nqhungonline]

Chào toàn thể các bạn trong diễn đàn giaiphapexcel mình có một bảng dữ liệu cần copy tự động các thành phần từ trên xuống. Các bạn xem qua và hướng dẫn cho mình cách làm nhé xin chân thành cảm ơn nhiều

 

[rollover79]

Bài toán này trên diễn đàn có nhiều rồi mà. Chọn cả vùng dữ liệu cần xử lý(A4:G36) -> Nhấn phím F5 -> Special -> Blank -> Click chuột vào FormulaBar gõ =A3 -> Nhấn Ctrl+Enter

 

[SA_DQ]

Bạn dùng thử macro sau

Option Explicit
Sub CopyDown()
 Dim eRw As Long, BDau As Long, Cuoi As Long
 Dim Clls As Range
 
 eRw = [b65500].End(xlUp).Row + 5:        Cuoi = 2
 Do
    BDau = Cuoi + 1
    Set Clls = Cells(BDau, "A").Resize(, 7)
    Cuoi = Cells(BDau, "B").End(xlDown).Row - 1
    If Cuoi > 65500 Then Cuoi = eRw
    Cells(BDau + 1, "A").Resize(Cuoi - BDau, 7).Value = Clls.Value
    If Cuoi = eRw Then Exit Do
 Loop
End Sub

Chú í khi dùng: Dòng cuối sẽ được chép thêm cố định 5 dòng như trong câu lệnh có số 5;
Nếu cần đổi khác, bạn cứ tiện sửa!