Xóa các hàng trong các table, code chạy rất chậm, Làm sao để chạy nhanh hơn?

[Maika8008]

bạn ơi code này sao mình nhấn f5 thấy không chạy bạn ạ?

Tôi không biết. Đó là tôi viết ở máy tôi chứ bạn đâu có kèm file mà tôi viết cho đúng ở máy bạn.

 

[phamvandunghp84]

Tôi không biết. Đó là tôi viết ở máy tôi chứ bạn đâu có kèm file mà tôi viết cho đúng ở máy bạn.

Bạn ơi là code đó có chạy nhưng mình không thấy nó xóa được các hàng đó bạn

 

[Maika8008]

Bạn ơi là code đó có chạy nhưng mình không thấy nó xóa được các hàng đó bạn

Bạn mà không kèm file thì tôi chịu, có hỏi nữa cũng vô ích.

 

[phamvandunghp84]

Code bạn nhiều chỗ thừa lắm.
' dịch tên cột sang số
ColumnName2Number = Range(strAddr).Column
' nếu chỉ có "A", "AB" thì
ColumnName2Number = Cells(1, strAddr).Column

' xoá dòng trong tables
i = 0
For Each lo In Sheets("Data").ListObjects
i = i+1
If i > 350 Then Exit For
lo.AutoFilter.ShowAllData
sheet1.listobjects(1).DataBodyRange.Offset(2, 0).Resize(sheet1.listobjects(1).DataBodyRange.Rows.Count-2).Delete ' giữ lại 2 dòng data, nếu không cần giữ thì không cần offset+resize gì cả
Next lo

Bạn ơi bạn cho mình hỏi vì sao mình thấy bạn không cần khai báo biến lo mà vẫn dùng được vậy? có phải lo là từ khóa chứ không phải là biến phải không bạn?