Copy từ trên xuống dưới theo điều kiện

[hadoan-pap]

Em chào mọi người.

Em có file như đính kèm... e muốn kết quả đầu ra như file ảnh sau khi ấn nút ạ.

Vì file gốc data nhiều và dòng, cột biến đổi liên tục nên cần dung Code để làm cho nhanh ạ.

Rất mong mọi người giúp đỡ.

E xin cảm ơn

 

[phulien1902]

Em chào mọi người.

Em có file như đính kèm... e muốn kết quả đầu ra như file ảnh sau khi ấn nút ạ.

Vì file gốc data nhiều và dòng, cột biến đổi liên tục nên cần dung Code để làm cho nhanh ạ.

Rất mong mọi người giúp đỡ.

E xin cảm ơn

Bạn thử:

Sub Test()
  With Range("A2:A16")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
End Sub

 

[be_09]

Em chào mọi người.

Em có file như đính kèm... e muốn kết quả đầu ra như file ảnh sau khi ấn nút ạ.

Vì file gốc data nhiều và dòng, cột biến đổi liên tục nên cần dung Code để làm cho nhanh ạ.

Rất mong mọi người giúp đỡ.

E xin cảm ơn

Thêm vài trăm dòng dữ liệu rồi chạy thử code sau:

Sub ChonCotA_GanData()
    Range("A2", Range("A10000").End(xlUp)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    Range("A2:A10000").Value = Range("A2:A10000").Value
End Sub

 

[hadoan-pap]

Cảm ơn mọi người rất nhiều ạ.

Em đã chạy và thấy được rồi