Code VBA xóa các ô có giá trị là 0

[Văn Toàn 1996]

Chào các bạn GPE. Mình cần đoạn code VBA để xóa đi các ô có giá trị là 0 ( như hình mô tả ). Nhờ các bạn hỗ trợ. Xin chân thành cảm ơn

 

[Hoàng Tuấn 868]

Chào các bạn GPE. Mình cần đoạn code VBA để xóa đi các ô có giá trị là 0 ( như hình mô tả ). Nhờ các bạn hỗ trợ. Xin chân thành cảm ơn

View attachment 294378

Code này trên diễn đàn có nhiều rồi, chịu khó tìm rồi áp dụng chứ bài khó bài dễ đều nhờ hết cả thế thì...

 

[htin1997]

Mình thấy cách này còn nhanh chán, nếu code thì cứ record lại mà làm.

 

[Tình nghĩa giang hồ]

Bạn thử code VBA sau
Viết bình thường:

Sub XoaDuLieu0()
       Dim rng As Range
    
  Range("F3:H1000").Value = Range("B3:D1000").Value
    Set rng = Range("F3:H1000")
    
  
    For Each cell In rng
        If cell.Value = 0 Then
            cell.ClearContents
        End If
    Next cell
End Sub

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

Viết bằng mảng:

Sub XoaDuLieu0()
    Dim rng As Range
    Dim data As Variant
    Dim i As Long, j As Long
    
    Range("F3:H10000").Value = Range("B3:D10000").Value
    Set rng = Range("F3:H10000")
    data = rng.Value
 
    For i = LBound(data, 1) To UBound(data, 1)
        For j = LBound(data, 2) To UBound(data, 2)
            If data(i, j) = 0 Then
                data(i, j) = Empty
            End If
        Next j
    Next i
    
    rng.Value = data
End Sub

 

[Thóc Sama]

Chào các bạn GPE. Mình cần đoạn code VBA để xóa đi các ô có giá trị là 0 ( như hình mô tả ). Nhờ các bạn hỗ trợ. Xin chân thành cảm ơn

View attachment 294378

Ctrl+H
Find What: 0
Replace With: để trống
Enter
Thao tác chưa tới 3 giây mà cũng phải code nữa ư?!

 

[VetMini]

...
Thao tác chưa tới 3 giây mà cũng phải code nữa ư?!

Code chỉ bấm, 1/2 giây.
Tiết kiệm được 83% thời gian.
(83% : manhs khóe của người làm thóng kê. Con số gì trông to khủng thì đưa ra. Không cần biết là 2,5 giây cũng đủ cho dân tin gời một texting cho người iu)

 

[Hoàng Tuấn 868]

Ctrl+H
Find What: 0
Replace With: để trống
Enter
Thao tác chưa tới 3 giây mà cũng phải code nữa ư?!

Vụ này gần đây thấy tần suất nhờ code tăng dần đều.

 

[befaint]

Cái hình ở bài #1 là Excel 2010.

Ai có nhã ý giúp đỡ nhớ thử nghiệm trên Excel 2010 chắc cú đã rồi gửi đáp án nhá.

 

[VetMini]

Vụ này gần đây thấy tần suất nhờ code tăng dần đều.

Bổ sung thêm cho bài #6:
Ctrl+H... gồm 4 động tác.
Bấm nút chỉ 1 động tác => tiết kiệm 75%

Tring khi chờ đợi tải code về, thì giờ cứ tiếp tục text bồ nhí.

 

[TongDe]

Null làm gì cho khó tính toán,
Vào Option bỏ tick Show a zero in cells that have zero value

 

[VetMini]

Null làm gì cho khó tính toán,
Vào Option bỏ tick Show a zero in cells that have zero value
...

Vấn đề là "" khác với 0

 

[HeSanbi]

Chọn vùng ô cần thực hiện
Chuột phải chọn Format Cell... -> Mục Number -> chọn custom nhập [=0]"";General

 

[ptm0412]

Ctrl+H
Find What: 0
Replace With: để trống
Enter
Thao tác chưa tới 3 giây mà cũng phải code nữa ư?!

10 còn 1, 100 còn 1, 1 triệu cũng còn 1, 102 còn 12, ...
Ctrl H phải nói rõ là đánh dấu match entire cell contents, hoặc chụp hình đã đánh dấu như bài 3.

 

[Văn Toàn 1996]

Ctrl+H
Find What: 0
Replace With: để trống
Enter
Thao tác chưa tới 3 giây mà cũng phải code nữa ư?!

Thử làm cái này thử xem. Nếu ô Đó có giá trị 1000 thì không phải là 0, mà sau khi
Ctrl+H
Find What: 0
Replace With: để trống
Enter
thì kết quả nó là 1

 

[VetMini]

Thử làm cái này thử xem. Nếu ô Đó có giá trị 1000 thì không phải là 0, mà sau khi
Ctrl+H
Find What: 0
Replace With: để trống
Enter
thì kết quả nó là 1
...

Lười hết thuốc.
Đã đọc bài #13 chưa? Hiểu nó nối cái gì hôn?

 

[Văn Toàn 1996]

Chọn vùng ô cần thực hiện
Chuột phải chọn Format Cell... -> Mục Number -> chọn custom nhập [=0]"";General

cái này là định dạng cho mắt không thấy được, nhưng dữ liệu vẫn là số 0 nên không thể áp dụng được. cảm ơn anh

Bài đã được tự động gộp: 2/9/23

Null làm gì cho khó tính toán,
Vào Option bỏ tick Show a zero in cells that have zero value
View attachment 294388

Bạn làm vậy thì không ổn cho lắm, này là để cho mắt không thấy thôi, Nhưng giá trị Value nó vẫn là số ( Len (cell ) = 1 ) . Mình thì Test rất kỷ, Chứ cứ áp dụng thì coi như nát dữ liệu. dù sao cũng cảm ơn bạn

 

[befaint]

Đã đọc bài #13 chưa?

Anh đọc bài #16 chưa?

 

[ongke0711]

Anh đọc bài #16 chưa?

Gặp người quen hả befaint

 

[VetMini]

Anh đọc bài #16 chưa?

Lúc tôi viết bài #5 thì chưa có bài #16 mờ.

 

[VetMini]

... Mình thì Test rất kỷ, Chứ cứ áp dụng thì coi như nát dữ liệu. dù sao cũng cảm ơn bạn

Tét tiếc thì kỹ mà đọc chỉ dẫn thì lười.
Hỏi cho lắm mà lười đọc cho hiểu thì rốt cuộc cũng nát kiến thức.