Giúp code xóa 1 vùng theo điều kiện (1 người xem)

[congnguyen88]

Ví dụ: tôi có 1 bảng tính excel gồm 3 cột ( tên hàng , số lượng, thành tiền ) nằm trong vùng từ A1 :C1000Tôi muốn click vào nút bấm thì những hàng nào có số lượng = 0 hoặc trống thì hàng đó sẽ Clearcontent
Người lại không làm gì cả

 

[hoamattroicoi]

Ví dụ: tôi có 1 bảng tính excel gồm 3 cột ( tên hàng , số lượng, thành tiền ) nằm trong vùng từ A1 :C1000Tôi muốn click vào nút bấm thì những hàng nào có số lượng = 0 hoặc trống thì hàng đó sẽ Clearcontent
Người lại không làm gì cả

Cột B là cột số lượng nhé :

Sub Xoa_CCCtent()
Dim Rng  As Range, Clls As Range
Set Rng = Range("B1:B1000")
For Each Clls In Rng
    If Clls.Value = 0 Or Clls.Value = "" Then
        Clls.EntireRow.ClearContents
    End If
Next
End Sub

 

[congnguyen88]

Cột B là cột số lượng nhé :

Sub Xoa_CCCtent()
Dim Rng  As Range, Clls As Range
Set Rng = Range("B1:B1000")
For Each Clls In Rng
    If Clls.Value = 0 Or Clls.Value = "" Then
        Clls.EntireRow.ClearContents
    End If
Next
End Sub

Cảm ơn bạn nhé. bạn sữa lại giúp mình chổ này
Clls.EntireRow.ClearContents ' cái này mình không muốn vì mình muốn giữ lại những dữ liệu nằm xung quanh

Ví dụ dòng thứ 3 có số lượng =0 thì như thế này Range("A3:C3").ClearContents
bạn sửa lại giúp mình nhé

Chứ mình thế này dài dòng quá

Sub Xoa_CCCtent()
Dim Rng As Range, Clls As Range
Set Rng = Range("B1:B1000")
For Each Clls In Rng
If Clls.Value = 0 Or Clls.Value = "" Then
Clls.ClearContents
Clls.Offset(0, 1).ClearContents
Clls.Offset(0, -1).ClearContents
End If
Next
End Sub

 

[hoamattroicoi]

Cảm ơn bạn nhé. bạn sữa lại giúp mình chổ này
Clls.EntireRow.ClearContents ' cái này mình không muốn vì mình muốn giữ lại những dữ liệu nằm xung quanh

Ví dụ dòng thứ 3 có số lượng =0 thì như thế này Range("A3:C3").ClearContents
bạn sửa lại giúp mình nhé

Chỉnh câu lệnh trong IF thành thế này nhé :

Clls.Offset(, -1).Resize(, 3).ClearContents

Sub Xoa_CCCtent()
Dim Rng  As Range, Clls As Range
Set Rng = Range("B1:B1000")
For Each Clls In Rng
    If Clls.Value = 0 Or Clls.Value = "" Then
        Clls.Offset(, -1).Resize(, 3).ClearContents
    End If
Next
End Sub