Delete 1 dãy ô nhất định trong 1 hàng

[tuyen2806]

Em muốn delete 1 dãy ô (từ ô H:AH) khi hàng đó được xác định là hàng thứ mấy thông qua ô "F5 " nhưng câu lệnh bên dưới delete luôn cả hàng
.Rows(.Range("F5")).EntireRow.Delete
Nhờ các Bác chỉ giúp phải sửa lại như thế nào ạ
Cảm ơn

 

[BuiQuangThuan]

Em muốn delete 1 dãy ô (từ ô H:AH) khi hàng đó được xác định là hàng thứ mấy thông qua ô "F5 " nhưng câu lệnh bên dưới delete luôn cả hàng
.Rows(.Range("F5")).EntireRow.Delete
Nhờ các Bác chỉ giúp phải sửa lại như thế nào ạ
Cảm ơn

bạn có thể record lại macro là có thể biết nó xoá như nào mà

 

[SA_DQ]

Sub DeleteValueO26O()
 Range("H" & [F5].Value).Resize(, 26).Value = Space(0)
End Sub

Thử xem đạt iêu cầu của bạn hay chưa (?)

 

[BuiQuangThuan]

Space(0)

Cho con hỏi cái 0 là cái gì thế chú? Ngoài cái 0 thì nó còn cái nào không ạ? Chẳng hạn như 1,2....
Cám ơn chú đã giải thích ạ

 

[VetMini]

Cho con hỏi cái 0 là cái gì thế chú? Ngoài cái 0 thì nó còn cái nào không ạ? Chẳng hạn như 1,2....
Cám ơn chú đã giải thích ạ

Người ta nổi hứng đùa thôi. Thay vì dùng "" cho VBA nó nhét một hằng vào thì gọi hàm Space để nó móc cái địa chỉ hàm và nhét tham số vào.
Nói cách khác, thay vì VBA chứa vài bytes cho chuỗi hằng thì nới thêm thành vài chục bytes cho hàm. Và chạy thêm khoảng một chục lệnh mã máy (lệnh mã máy này đơn giản, khoảng phần tỷ giây cho nên không quan trọng lắm).

Hàm Space trả về một chuỗi dấu cách với đọ dài theo tham số được nạp.

 

[tuyen2806]

Sub DeleteValueO26O()
 Range("H" & [F5].Value).Resize(, 26).Value = Space(0)
End Sub

Thử xem đạt iêu cầu của bạn hay chưa (?)

Cảm ơn Bác nhiều ạ
sau khi xóa dữ liệu hàng thì em muốn sort lại cả danh sách ("H6:AH") giảm dần dựa vào cột J thì phải làm sao ạ

 

[Hoàng Tuấn 868]

Cảm ơn Bác nhiều ạ
sau khi xóa dữ liệu hàng thì em muốn sort lại cả danh sách ("H6:AH") giảm dần dựa vào cột J thì phải làm sao ạ

Thì lập chủ đề mới để hỏi thôi bạn, vì không liên quan gì đến chủ đề này mà.