Hỗ trợ viết hàm xóa dòng nếu giá trị ở 2 cột = 0 (1 người xem)

[giallorossi]

Dear Các bác,
Các bác xem giúp em trường hợp làm thế nào để viết 1 hàm để có thể xóa các hàng mà có cột phone và Sms đều có giá trị = 0 (giữ lại Phone =0 nhưng SMS có value,SMS=0 nhưng Phone có value, hay cả 2 đều có value)

e có dòng code để xóa đối với giá trị 1 cột nhưng với 2 cột thì ko biết làm ntn

Sub Delete_Rows()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("B2:B1000"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) = 0 _
Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete
End Sub

 

[Ba Tê]

Dear Các bác,
Các bác xem giúp em trường hợp làm thế nào để viết 1 hàm để có thể xóa các hàng mà có cột phone và Sms đều có giá trị = 0 (giữ lại Phone =0 nhưng SMS có value,SMS=0 nhưng Phone có value, hay cả 2 đều có value)

e có dòng code để xóa đối với giá trị 1 cột nhưng với 2 cột thì ko biết làm ntn

Sub Delete_Rows()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("B2:B1000"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) = 0 _
Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete
End Sub

Thử với Sub này xem sao

Public Sub GPE()
Application.ScreenUpdating = False
Dim R As Long, I As Long
R = [A65000].End(xlUp).Row
For I = R To 2 Step -1
    If Len(Cells(I, 2)) < 2 And Len(Cells(I, 3)) < 2 Then
        Cells(I, 1).EntireRow.Delete Shift:=xlUp
    End If
Next I
Application.ScreenUpdating = True
End Sub

 

[giallorossi]

Chuan? k can chinh luon bac ba te a
Cam on bac nhieu lam

 

[huuthang_bd]

Đôi khi với những công việc ta chỉ làm một lần thì nếu biết cách kết hợp các công cụ sẵn có của Excel thì có thể thời gian làm bằng tay sẽ ngắn hơn thời gian ngồi viết code.

Ví dụ trong trường hợp này ta hoàn toàn có thể làm thủ công bằng cách sau:

- Dùng một cột phụ đánh số thứ tự các dòng (cột phụ 1)
- Dùng một cột phụ khác với công thức =B2&C2="00"(cột phụ 2)
- Sort dữ liệu (bao gồm cả các cột phụ) theo cột phụ 2 (tăng giảm đều được)
- Xóa vùng dữ liệu có giá trị TRUE ở cột phụ 2
- Sort lại dữ liệu theo cột phụ 1 tăng dần
- Xóa các cột phụ