Code xóa dữ liệu không dồn hàng trên các sheet. (1 người xem)

[nggiahoang]

Code xóa dữ liệu không dồn hàng trên các sheet
Các bạn giúp giùm đoạn code xóa dữ liệu text ở các ô C ,ô D ,ô E khi kết quả tại cột F bằng 0 hoặc trống ; nếu kết quả là 3 thì giữ nguyên dòng đó.

Cấu trúc dữ liệu của 5 sheet giống nhau chỉ khác phần nhập text.Do đó khi code chạy sẽ tìm và xóa dữ liệu trên tất cả cac sheet từ 1 đến 5 .
Cám ơn các bạn !

 

[dhn46]

Bạn dùng Code này xem sao

Sub Xoa()
    Dim ArrSheet
    Dim iSheet As Long, eR As Long, Cls As Range
    'Them sheet vao day
    ArrSheet = Array("T1", "T2", "T3", "T4", "T5")
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For iSheet = 0 To UBound(ArrSheet)
        With Sheets(ArrSheet(iSheet))
            eR = .Range("A65536").End(3).Row
            For Each Cls In .Range("F5", .Range("F" & eR))
                If Val(Cls) = 0 Then
                    'Neu muon xoa ca cot F thi thay E bang F
                    .Range(.Range("C" & Cls.Row), .Range("E" & Cls.Row)).ClearContents
                End If
            Next
        End With
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[nggiahoang]

Cám ơn bạn dhn46 ! code chạy ngon rồi.