Xin giúp đỡ về code để chọn và copy một vùng có dữ liệu

[phamxuyenp171]

-Tôi có một File dữ liệu, trong đó có rất nhiều sheet1, sheet2…. Mỗi sheet này đều có các bảng số liệu, có số cột giống nhau nhưng số dòng khác khau.
- Tôi muốn khi ở sheet nào thì khi chạy Macro thì vùng dữ liệu trong các dòng số thứ tự ở sheet đó được bôi đen và copy
- 1 Macro chung cho các sheet
Mong được mọi người giúp đỡ. Xin cảm ơn!

 

[Phuocam]

Thử:

Public Sub Test()
Range("C4").CurrentRegion.Select
Range("C4").CurrentRegion.Copy
End Sub

 

[phamxuyenp171]

Thử:

Public Sub Test()
Range("C4").CurrentRegion.Select
Range("C4").CurrentRegion.Copy
End Sub

Cái này cũng rất hay nhưng nó lại copy hết cả bảng. Tôi muốn nó chừa lại dòng cuối trong bảng thì làm thế nào hả bác (Tức là chỉ copy ở các dòng số thứ tự thôi).

 

[phulien1902]

Cái này cũng rất hay nhưng nó lại copy hết cả bảng. Tôi muốn nó chừa lại dòng cuối trong bảng thì làm thế nào hả bác (Tức là chỉ copy ở các dòng số thứ tự thôi).

Vậy bạn thử:

 Range("C4:C" & Range("C" & Rows.Count).End(3).row).SpecialCells(xlCellTypeConstants, 1).Resize(,6).Copy

Hoặc:

Columns(3).SpecialCells(xlCellTypeConstants, 1).Resize(,6).Copy