Loại bỏ số 0

[saobekhonglac]

Chào anh/chị.

Em có file excel có nhiều số 0, anh/chị hướng dẫn giúp em code loại bỏ/xoá số 0 trong những ô có giá trị = 0 với.

Thanks anh/chị.

 

[chuot0106]

Chào anh/chị.

Em có file excel có nhiều số 0, anh/chị hướng dẫn giúp em code loại bỏ/xoá số 0 trong những ô có giá trị = 0 với.

Thanks anh/chị.

Dùng VBA có được không bạn????

 

[Let'GâuGâu]

Chào anh/chị.

Em có file excel có nhiều số 0, anh/chị hướng dẫn giúp em code loại bỏ/xoá số 0 trong những ô có giá trị = 0 với.

Thanks anh/chị.

nhấn Ctrl F, hộp thoại find and replace mở ra
ô: Find what ==>0
ô: Replace with để trống
nhấn vào option==>tick vổ cái lổ "match entire cell contents"
xong nhấn replace all

 

[comet_1701]

Chào anh/chị.

Em có file excel có nhiều số 0, anh/chị hướng dẫn giúp em code loại bỏ/xoá số 0 trong những ô có giá trị = 0 với.

Thanks anh/chị.

Ko cần đến code đâu. Bạn tích vào Option Button/Excel option / Advanced ở Display option bỏ dấu tích ở zero value đi là được

 

[vanle33]

Chào anh/chị.

Em có file excel có nhiều số 0, anh/chị hướng dẫn giúp em code loại bỏ/xoá số 0 trong những ô có giá trị = 0 với.

Thanks anh/chị.

Có thể định dạng custom như sau cho toàn bộ vùng dữ liệu của bạn _(* #.##0_);_(* (#.##0);_(* "-"_);_(@_)

 

[saobekhonglac]

Cám ơn bạn nhiều, mình đã làm được.

 

[n0thing1988]

Ctrl+F/Replace
Find What : Đa'nh số 0. Chọn Options/ Chọn Match entire cell contents
Kích vào Replace all

 

[saobekhonglac]

Nếu dùng định dạng để ẩn số 0 thì trên vẫn được nhưng khi mình Merge sang word thì vẫn còn số 0 đó.

Ko cần đến code đâu. Bạn tích vào Option Button/Excel option / Advanced ở Display option bỏ dấu tích ở zero value đi là được

 

[comet_1701]

Nếu dùng định dạng để ẩn số 0 thì trên vẫn được nhưng khi mình Merge sang word thì vẫn còn số 0 đó.

Góp vui thêm bài nữa vậy:

Sub Xoa_0()
Dim Rng As Range, cll As Range
Set Rng = Range([A2], [A65000].End(xlUp)).Resize(, 80)
    For Each cll In Rng
        If cll.Value = 0 Then
            cll.Value = Empty
        End If
    Next cll
Set Rng = Nothing
End Sub

Sub Xoa_0()
Dim Sarr(), i&, j&
Sarr = Range([A2], [A65000].End(xlUp)).Resize(, 80).Value2


    For i = 1 To UBound(Sarr, 1)
        For j = 1 To UBound(Sarr, 2)
            If Sarr(i, j) = 0 Then
                Sarr(i, j) = Empty
            End If
        Next j
    Next i
[A2].Resize(i - 1, 80).Value = Sarr
End Sub

 

[ndu96081631]

Góp vui thêm bài nữa vậy:

Sub Xoa_0()
Dim Rng As Range, cll As Range
Set Rng = Range([A2], [A65000].End(xlUp)).Resize(, 80)
    For Each cll In Rng
        If cll.Value = 0 Then
            cll.Value = Empty
        End If
    Next cll
Set Rng = Nothing
End Sub

Sub Xoa_0()
Dim Sarr(), i&, j&
Sarr = Range([A2], [A65000].End(xlUp)).Resize(, 80).Value2


    For i = 1 To UBound(Sarr, 1)
        For j = 1 To UBound(Sarr, 2)
            If Sarr(i, j) = 0 Then
                Sarr(i, j) = Empty
            End If
        Next j
    Next i
[A2].Resize(i - 1, 80).Value = Sarr
End Sub

Code này chơi cho vui chứ thực chất là không dùng được... Bởi chỗ nào của người ta có công thức thì sẽ bị biến tất thành values