Giúp tự động xóa dòng-xóa cột trốngvà Merge and center trong excel (1 người xem)

[diemdiem]

Các đại cao thủ Xls, các thành viên gạo gội, chào anh quanghaibinhduong.....ra tay nghĩa hiệp giúp em với. Với tình hình hiện nay là em có file mẫu bảng điểm xuất ra từ chương trình dưới dạng xls, em phải thống kê ra theo từng loại giỏi, khá....và theo lớp.
nhưng bảng điểm xuất ra có nhiều cái merge và nhiều dòng trắng quá. Em ngồi làm thủ công thì cũng ra, nhưng mà mất nhiều time vì nhiều lớp quá. hụhu
Các cao thủ giúp em với, nghĩa là những dòng, cột trắng thì xóa đi, những cái nào hợp ô thì phá nó đi, phá m e r ge trước, sau đó xóa cột và dòng trống.
cám ơn các anh chị nhiều nhiều.

 

[Quang_Hải]

Xóa dòng thì dễ rồi, cột thì hỏng dám xóa

Private Sub CommandButton1_Click()
Cells.MergeCells = 0
For r = 13 To [b65536].End(3).Row
If Cells(r, 2) = Empty Then Cells(r, 2).EntireRow.Delete
Next
End Sub