Nhờ các bạn giúp mình code xoá những ô có giá trị bằng không (1 người xem)

[ditimdl]

Gửi anh chị và các bạn trên GPE!
Mình có 1 vùng A1:G100 trong đó chứa nội dung (dạng value hoặc text) chứ không có công thức, mình muốn xoá (giống như clearcontent) những ô có giá trị bằng 0 còn những ô chứa text hoặc nội dung khác 0 thì vẫn giữ nguyên.
Mong được các bạn giúp đỡ!

 

[Quang_Hải]

Gửi anh chị và các bạn trên GPE!
Mình có 1 vùng A1:G100 trong đó chứa nội dung (dạng value hoặc text) chứ không có công thức, mình muốn xoá (giống như clearcontent) những ô có giá trị bằng 0 còn những ô chứa text hoặc nội dung khác 0 thì vẫn giữ nguyên.
Mong được các bạn giúp đỡ!

Sub xoa()
Dim rng As Range, tem, i, j
Set rng = [A1:G100]
tem = rng.Value
For i = 1 To UBound(tem)
    For j = 1 To UBound(tem, 2)
    If tem(i, j) = 0 Then tem(i, j) = Empty
    Next
Next
[A1].Resize(UBound(tem), UBound(tem, 2)).Value = tem
End Sub

 

[ditimdl]

Cảm ơn anh quanghai1969 rất nhiều, code chạy rất đúng với ý em mong muốn.