[Help] VBA Copy từ vùng trên có data xuống những vùng blank

[robinhsoon]

Thân chào cả nhà GPE!

Mong cả nhà giúp em một việc ạ..
từ cột D có cột Product, em muốn tìm đến dòng thứ 2 có tên là Product và làm việc tại cột này.... công việc của em là copy từ vùng ở trên nếu có data thì copy xuống vùng dưới Blank.. Trong File em có sheet kết quả...

Mong cả nhà giúp đỡ ạ..

 

[AnhThu-1976]

Thân chào cả nhà GPE!

Mong cả nhà giúp em một việc ạ..
từ cột D có cột Product, em muốn tìm đến dòng thứ 2 có tên là Product và làm việc tại cột này.... công việc của em là copy từ vùng ở trên nếu có data thì copy xuống vùng dưới Blank.. Trong File em có sheet kết quả...

Mong cả nhà giúp đỡ ạ..

https://www.giaiphapexcel.com/diendan/threads/cách-lập-đầy-các-ô-dưới-theo-ô-trên.19994/

 

[phulien1902]

Thân chào cả nhà GPE!

Mong cả nhà giúp em một việc ạ..
từ cột D có cột Product, em muốn tìm đến dòng thứ 2 có tên là Product và làm việc tại cột này.... công việc của em là copy từ vùng ở trên nếu có data thì copy xuống vùng dưới Blank.. Trong File em có sheet kết quả...

Mong cả nhà giúp đỡ ạ..

Thử:

Sub ABC()
    Range("D3:D" & Range("C" & Rows.Count).End(3).Row).SpecialCells(4).Value = "=R[-1]C"
End Sub

 

[robinhsoon]

Thử:

Sub ABC()
    Range("D3:D" & Range("C" & Rows.Count).End(3).Row).SpecialCells(4).Value = "=R[-1]C"
End Sub

Em cảm ơn Anh đã giúp em ạ.. em làm được rồi ạ.. Em muốn làm một vòng lập cho nó chạy hết tất cả các Sheet trong 1 File, em có viết nhưng nó lại không hoạt động anh giúp em với ạ..

Sub aaaa()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
Range("D3" & Range("C" & Rows.Count).End(3).Row).SpecialCells(4).Value = "=R[-1]C"
Next I
End Sub

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

https://www.giaiphapexcel.com/diendan/threads/cách-lập-đầy-các-ô-dưới-theo-ô-trên.19994/

Em cảm ơn ạ.. Bài viết rất hữu ích ạ

 

[phulien1902]

Thử:

Sub abc2()
    Dim i As Long
    For i = 1 To Worksheets.Count
       Sheets(i).Range("D3:D" & Range("C" & Rows.Count).End(3).Row).SpecialCells(4).Value = "=R[-1]C"
    Next
End Sub