Xin code VBA copy tự động (1 người xem)

[tuoigiyeuem]

Mình có 1 danh sách ( đính kèm).
Mình muốn copy tự động phần tên cho xuống những dòng dưới trong cùng 1 cột.
Mong các bạn giúp đỡ !
( Xin lỗi mình up file .txt vì dung lượng file tải lên đã đầy )

 

[nghiaphuc]

Sửa lại bài viết đi bạn ơi, bạn trình bày như vậy thì không thể đọc được. Tốt nhất là bạn nhập dữ liệu vào file Excel, nêu rõ yêu cầu vào đó, sẽ có người giúp đỡ bạn.

 

[nghiaphuc]

Mình có 1 danh sách ( đính kèm).
Mình muốn copy tự động phần tên cho xuống những dòng dưới trong cùng 1 cột.
Mong các bạn giúp đỡ !
( Xin lỗi mình up file .txt vì dung lượng file tải lên đã đầy )

Code chỉ đơn giản là thế này:
[GPECODE=vb]Sub Test()
Dim Rng As Range
Sheet1.Activate
For Each Rng In Range([B2], [C65536].End(xlUp).Offset(, -1))
If IsEmpty(Rng.Offset(, -1)) Then Rng = Rng.Offset(-1)
Next
End Sub[/GPECODE]
Bạn tham khảo trong file nhé.

 

[tuoigiyeuem]

Cám ơn bạn nhiều !
Thanks