Nhờ xóa Ô có số 0 (2 người xem)

[lethanhxuan1988]

Đã làm được. cảm ơn mọi người !!!
Chào các anh chị, các bạn. Em muốn nhờ xóa các ô chứa số 0 trong cột A giúp em
em đã tìm thử dùng tìm các ô có số 0 rồi xóa thì báo dữ liệu quá lớn, làm một nửa một thì máy đơ
anh chị xóa giúp em nhé!
Đã làm được. cảm ơn mọi người !!!

 

[Quang_Hải]

Chào các anh chị, các bạn. Em muốn nhờ xóa các ô chứa số 0 trong cột A giúp em
em đã tìm thử dùng tìm các ô có số 0 rồi xóa thì báo dữ liệu quá lớn, làm một nửa một thì máy đơ
anh chị xóa giúp em nhé!

Với file của bạn thì có thể thử hai cách
1. Dùng autofilter để lọc và xóa số 0
2. Dùng Ctrl+F để tìm và thay số 0 thành empty

 

[Nguyễn Hồng Quang]

Chào các anh chị, các bạn. Em muốn nhờ xóa các ô chứa số 0 trong cột A giúp em
em đã tìm thử dùng tìm các ô có số 0 rồi xóa thì báo dữ liệu quá lớn, làm một nửa một thì máy đơ
anh chị xóa giúp em nhé!

Bạn Dùng chức năng Replace , nhanh chưa tới 3 nốt nhạc. Ấn Ctrl+H Thay thế 0 , ở Replace with để trống

 

[be_09]

Chào các anh chị, các bạn. Em muốn nhờ xóa các ô chứa số 0 trong cột A giúp em
em đã tìm thử dùng tìm các ô có số 0 rồi xóa thì báo dữ liệu quá lớn, làm một nửa một thì máy đơ
anh chị xóa giúp em nhé!

Chắc thao tác chưa đúng.
Làm thử thế này: Chọn cột A, nhấn Ctr + H hộp thoại hiện ra trong khung Find what gõ số 0 rồi nhấn Replace All.

 

[lethanhxuan1988]

Với file của bạn thì có thể thử hai cách
1. Dùng autofilter để lọc và xóa số 0
2. Dùng Ctrl+F để tìm và thay số 0 thành empty

em làm nhưng nó báo dữ liệu lớn quá , ko biết a làm giúp em được ko ạ

Bài đã được tự động gộp: 31/8/18

Vâng em tự làm từ từ cũng được cảm ơn anh chị nhé !!! Đã làm được rồi

 

[phulien1902]

Đã làm được. cảm ơn mọi người !!!
Chào các anh chị, các bạn. Em muốn nhờ xóa các ô chứa số 0 trong cột A giúp em
em đã tìm thử dùng tìm các ô có số 0 rồi xóa thì báo dữ liệu quá lớn, làm một nửa một thì máy đơ
anh chị xóa giúp em nhé!
Đã làm được. cảm ơn mọi người !!!

Thử:

Sub abc()
    With Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row)
        .Replace 0, "", 1
    End With
End Sub