Xin đoạn Code copy dự liệu (1 người xem)

[adonis_thanh]

Nhờ anh chi giúp em đoạn code copy và past xuống các dòng trống kế tiếp nhau.
Xin chân thành cảm ơn!!!

 

[patygate591]

Mình không biết cái code... nhưng có cái này bạn có thể làm...
- Chọn hết vùng cần fill (ở đây là A329)
- Ở thẻ Home chọn Find & Select/Go to special/Blanks rồi nhấn OK
- Sau đó ở ô công thức gõ vào =A2 rồi nhấn Ctrl + Enter

 

[Ba Tê]

Nhờ anh chi giúp em đoạn code copy và past xuống các dòng trống kế tiếp nhau.
Xin chân thành cảm ơn!!!

Muốn code thì có code đây.

Public Sub GPE()
Dim sArr(), I As Long, J As Long
sArr = Range("A2", Range("A65536").End(xlUp)).Resize(, 5).Value
For I = 2 To UBound(sArr)
    For J = 1 To 5
        If sArr(I, J) = Empty Then sArr(I, J) = sArr(I - 1, J)
    Next J
Next I
Range("A2:E2").Resize(I - 1) = sArr
End Sub

 

[adonis_thanh]

Mình không biết cái code... nhưng có cái này bạn có thể làm...
- Chọn hết vùng cần fill (ở đây là A329)
- Ở thẻ Home chọn Find & Select/Go to special/Blanks rồi nhấn OK
- Sau đó ở ô công thức gõ vào =A2 rồi nhấn Ctrl + Enter

Cảm ơn bạn rất nhiều. Chúc bạn năm mới an khang thịnh vượng và thành đạt trong công việc.

 

[adonis_thanh]

Muốn code thì có code đây.

Public Sub GPE()
Dim sArr(), I As Long, J As Long
sArr = Range("A2", Range("A65536").End(xlUp)).Resize(, 5).Value
For I = 2 To UBound(sArr)
    For J = 1 To 5
        If sArr(I, J) = Empty Then sArr(I, J) = sArr(I - 1, J)
    Next J
Next I
Range("A2:E2").Resize(I - 1) = sArr
End Sub

Sau khi tìm hiểu nhiều bài viết từ Anh Ba Tê mới thấy rằng mọi giải giáp anh đưa ra rất tối ưu. Cảm ơn anh rất nhiều. Chúc anh năm mới tràn đầy hạnh phúc và thành công trong cuộc sống.