Xoá dữ liệu số 0 trong file dữ liệu

[sep_hatxel]

Nhờ GPE giúp đỡ mình code xoá dữ liệu số 0 trong file excel 2007. Mình có file excel 2007 có nhiều ô có số 0. Mình dùng "hide zero" nhưng chỉ có tác dụng làm ẩn số 0 nhưng không xoá! Ngoài ra cách dùng find thay thế số 0 nhưng mà nhược điểm thì số liệu là số có tận cùng là 0 thì không có ý nghĩa nữa! Vì vậy mong GPE giúp đỡ code xoá nguyên số 0 trong các ô!

 

[ndu96081631]

Nhờ GPE giúp đỡ mình code xoá dữ liệu số 0 trong file excel 2007. Mình có file excel 2007 có nhiều ô có số 0. Mình dùng "hide zero" nhưng chỉ có tác dụng làm ẩn số 0 nhưng không xoá! Ngoài ra cách dùng find thay thế số 0 nhưng mà nhược điểm thì số liệu là số có tận cùng là 0 thì không có ý nghĩa nữa! Vì vậy mong GPE giúp đỡ code xoá nguyên số 0 trong các ô!

Dùng Find and Replace là đúng rồi còn gì, có điều để nó chọn đúng số 0 nằm 1 mình thì bạn phải bấm nút Options, check vào mục "Match entire cell contents"

 

[ThuNghi]

Nhờ GPE giúp đỡ mình code xoá dữ liệu số 0 trong file excel 2007. Mình có file excel 2007 có nhiều ô có số 0. Mình dùng "hide zero" nhưng chỉ có tác dụng làm ẩn số 0 nhưng không xoá! Ngoài ra cách dùng find thay thế số 0 nhưng mà nhược điểm thì số liệu là số có tận cùng là 0 thì không có ý nghĩa nữa! Vì vậy mong GPE giúp đỡ code xoá nguyên số 0 trong các ô!

Dùng code sau

Sub XoaZeRo()
Dim sStr As String
sStr = "0"
Cells.Replace What:=sStr, Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub