xóa một ô bất kỳ trong sheet

[thehungqnu]

các bạn có thể giúp mình viết VB về xóa những ô dữ liệu bất kỳ trong sheet được tô màu vàng hoặc in đậm.
cảm ơn! email

 

[LearnExcel]

Chào bạn, bạn có thể thử chép đoạn code này xem

Sub del_Bold_Yellow()
    For Each o In Selection
        condition1 = o.Font.Bold ' fon chu dam
        condition2 = (o.Interior.ColorIndex = 6) ' mau vang
        'ban co the ket hop nhieu dieu kien khac nha o day
        
        If condition1 Or condition2 Then o.Value = Null
    Next
End Sub

Lưu ý là trước khi chạy code thì cần chọn vùng cần xóa. (tiết kiệm hơn là toàn bộ các ô).
Nếu thực sự cần chọn toàn bộ bạn có thể chọn ở ô giao giữa A và 1.

Chúc bạn thành công

 

[thehungqnu]

xoa du lieu

Cảm ơn LEARNEXCEL rất nhiều mình làm được rồi. còn vấn đề tương tự như vậy, mình muốn xóa những ô không phải màu vàng hoặc in đậm thì mình viết đoạn code sau các bạn tham khảo bổ sung:
Sub del()
For Each o In Selection
condition1 = o.Font.fontstyle=”regular”
If condition1 Then o.Value = Null Next
End Sub