Mình muốn xoá dòng theo điều kiện

Nhờ các anh chị giúp

Option Explicit

Sub DeleteRow()
Dim Ws As Worksheet
Dim i As Integer
Set Ws = ActiveSheet
If .Cells(i, 17) = 0 Then
i = i + 1
Ws.ListObjects("Transactions").ListRows(i).Delete
End Sub

Không biết sai chỗ nào mà không chạy được
Nhờ các anh chị giúp

Bạn thử code sau và rút kinh nghiệm từ rày muốn nhanh được hỗ trợ thì nên đính kèm file (giả lập).

Option Explicit
Sub Delete_Row17_0()
    Dim ws As Worksheet, Lr&, Rng As Range, cell As Range
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Set ws = ThisWorkbook.Worksheets("Result")
    Lr = ws.Cells(ws.Rows.Count, 17).End(xlUp).Row
    For Each cell In ws.Range("Q5:Q" & Lr)
        If cell.Value = 0 Then
            If Rng Is Nothing Then
                Set Rng = cell.EntireRow
            Else
                Set Rng = Union(Rng, cell.EntireRow)
            End If
        End If
    Next cell
    If Not Rng Is Nothing Then
        Rng.Delete
    End If
    MsgBox "Done"
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
End Sub

www.giaiphapexcel.com/diendan/threads/m%C3%ACnh-mu%E1%BB%91n-xo%C3%A1-d%C3%B2ng-theo-%C4%91i%E1%BB%81u-ki%E1%BB%87n.165447/

Khóa học SprinGO phù hợp

Thiết kế Tổng đãi ngộ (Total Rewards) theo khung SHRM

Khóa học “Thiết kế Tổng phần thưởng (Total Reward) chuẩn khung SHRM” giúp bạn nắm vững toàn bộ hệ thống đãi ngộ theo chuẩn...

Xem khóa học