Mình đã tìm được câu trả lời bằng việc nghiên cứu giaiphapexcel.com.
Trong excel mình viết công thức nếu cell nào muốn xóa thì giá trị False là "xoa" để làm flag
(cờ)
tạo một macro như bên dưới.
Sau khi kéo công thức vào Macro>view>run macro tên MacroXoa
Sub MacroXoa()
Dim FormulaCells as range
Dim cell as range
Range("A1:Z1000").select
On error resume next
Set formulacells = selection.spectialcells(xlFormulas)
for each cell in formulacells
if cell.value ="xoa" then cell.clearcontents
next cell
end sub
Cảm ơn bạn kyo trong mục làm việc với range(2) đã giúp tạo code vba này.