Code xóa dòng (1 người xem)

[matran25251325]

Trên GPE em có tìm hiểu vài đoạn code xóa dòng trống nhưng có đoạn code này là em đang cần để áp dụng và dễ hiểu:
Sub Macro1()
With Cells
.SpecialCells(2).EntireRow.Hidden = True
.SpecialCells(12).EntireRow.Delete
.EntireRow.Hidden = False
End With
End Sub

Nhưng với dữ liệu vài k dòng thì code chạy oke, còn dữ liệu vài chục K dòng thì máy treo và báo lỗi phần tô đỏ phía trên. Vậy phải chỉnh sửa thế nào để code có thể chạy với dữ liệu lớn. Và em chưa hiểu số 2 và 12 ý nghĩa thế nào, mong các thầy giúp và giải thích giùm em.

 

[chuot0106]

Trên GPE em có tìm hiểu vài đoạn code xóa dòng trống nhưng có đoạn code này là em đang cần để áp dụng và dễ hiểu:
Sub Macro1()
With Cells
.SpecialCells(2).EntireRow.Hidden = True
.SpecialCells(12).EntireRow.Delete
.EntireRow.Hidden = False
End With
End Sub

Nhưng với dữ liệu vài k dòng thì code chạy oke, còn dữ liệu vài chục K dòng thì máy treo và báo lỗi phần tô đỏ phía trên. Vậy phải chỉnh sửa thế nào để code có thể chạy với dữ liệu lớn. Và em chưa hiểu số 2 và 12 ý nghĩa thế nào, mong các thầy giúp và giải thích giùm em.

Theo mình hiểu thì số 12 là kí hiệu cho một thuộc tính nào đó(như dòng trống chẳng hạn).

 

[VetMini]

12 là Visible Cells.
Tại người viết code lười biếng. Đáng lẽ phải viết SpecialCells(xlCellTypeVisible)...

 

[matran25251325]

Theo mình hiểu thì số 12 là kí hiệu cho một thuộc tính nào đó(như dòng trống chẳng hạn).

Hic giải thích kiểu này thì bó tay bác Chuột

 

[matran25251325]

12 là Visible Cells.
Tại người viết code lười biếng. Đáng lẽ phải viết SpecialCells(xlCellTypeVisible)...

Vậy với cách xóa như file bài 1 mà dữ liệu vài chục K dòng thì code nên sửa thế nào anh vetmini.

 

[VetMini]

Tôi chỉ giải thích, thay vì viết số 12 thì viết xlCellTypeVisible cho đễ hiểu. Còn việc chỉnh code thì tôi chưa có thì giờ xem dữ liệu.