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

[Trần Văn Bình]

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

 

[SA_DQ]

Đó là bạn xóa dữ liệu vùng;
Còn 1 cách khác nữa là gán cho vùng đó trị rỗng
Bạn có thể đo thời gian thi hành của 2 lệnh này bằng cách sau:

Trong phần khai báo, bạn khai 1 tham biến đo thời gian, ví dụ Dim Tmr As Double
Trước câu lệnh xoa hay gán bạn thêm câu lệnh
Tmr= Timer()

& sau câu lệnh đó bạn thêm câu lệnh

MsgBox Timer()- Tmr

Bạn thử lúc rỗi xem có gì thích thú hơn với bạn hay chăng?

 

[VetMini]

Nếu bạn chưa thành thục về mảng thì có phương cách này để thử nè:
...

Xóa theo kiểu mảng mất công phải chỉnh lại ba cái chỗ công thức và ba cái mớ màu mè, kẻ ô này nọ.