Xin giúp em Xóa nhanh Vùng dữ liệu (1 người xem)

[ohho84]

Hi mọi người. Vấn đề của em em đã mô tả ở file đính kèm. Mong mọi người giúp đỡ em nhé.

 

[ohho84]

Do file dung lượng hơi lớn nên em nén lại thành file rar.

 

[SA_DQ]

(/ới dữ liệu như trong file, bạn có thể dùng 1 trong 2 lệnh có đánh số dưới đây

Sub DeleteRange()
1 [B1].CurrentRegion.Clear
2 [b2].CurrentRegion.ClearContents
End Sub

 

[ohho84]

Sub DeleteRange()
1 [B1].CurrentRegion.Clear
2 [b2].CurrentRegion.ClearContents
End Sub

Anh ơi cho em em hỏi B1, B2 là gì vậy ạ

File em gửi là ví dụ. Bên cạnh dữ liệu cần xóa còn có cả dữ liệu phải giữ lại. Dùng lệnh này liệu có xóa hết cả sheet ko ạ? Có cách nào chỉ xóa vùng được fill xám ko ạ

Sau khi em chạy thử lệnh này thì mặc dù nó thực thi được nhưng ko đáp ứng đc nhu cầu của mình anh ạ.
Nhu cầu của em là chỉ xóa vùng dữ liệu đó mà ko ảnh hưởng đến dữ liệu khác xung quanh ( nằm cùng Sheet).

Trong vùng dữ liệu cần xóa có cả những ô trống nữa nên khi em add code này vào file em đang làm việc nó ko thực thi được như ý mình muốn. Em đính kèm file khác để mô tả rõ hơn nhu cầu của mình. Mong mọi người giúp em nhé.