phamvandunghp84
Thành viên thường trực
- Tham gia
- 5/3/20
- Bài viết
- 241
- Được thích
- 12
Tôi dùng code này để xóa các hàng trong các table nhưng chạy rất chậm mỗi lần chạy cần cả một ngày ( có 350 table, mỗi table có rất nhiều hàng), Vậy phải làm thế nào để xóa các hàng trong table chỉ giữ lại 2 hàng đầu mà code chạy được nhanh? mong mọi người chỉ giáo, Chân thành cảm ơn!
Sub ShrinkTable_All() ' xóa tu hang cuoi giu hai hai hang tren cung, tat ca cac table
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With ThisWorkbook.Worksheets("Data") 'Update Sheet Name
If .ListObjects.Count > 0 Then
For i = 1 To 350
With .ListObjects(i)
While .ListRows.Count > 2 'Delete last row until first
.ListRows(.ListRows.Count).Delete
Wend
End With
Next i
End If
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
end sub
Sub ShrinkTable_All() ' xóa tu hang cuoi giu hai hai hang tren cung, tat ca cac table
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With ThisWorkbook.Worksheets("Data") 'Update Sheet Name
If .ListObjects.Count > 0 Then
For i = 1 To 350
With .ListObjects(i)
While .ListRows.Count > 2 'Delete last row until first
.ListRows(.ListRows.Count).Delete
Wend
End With
Next i
End If
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
end sub
Lần chỉnh sửa cuối:
