Giúp mình xóa dòng tự động trong excel

[othanhquango]

Nhờ các bạn giúp mình tạo 1 comman button xoá đặt tại ô A5 (ở tất cả các sheet). Nếu nhấn vào nút xoá ở sheet nào thì tự động xoá tất cả các dòng không có dữ liệu, trừ từ dòng Tổng trở xuống.

Các bạn xem trong file đính kèm. Chân thành cảm ơn các bạn.

http://www.mediafire.com/?zkkjzy1jyoy

 

[othanhquango]

Không ai giúp mình à?

 

[TongDe]

Hình như bạn post lộn file
Không thấy ghi yêu cầu gì trong file
Trong file cũng chẳng thấy dòng Tổng
Làm sao giúp đây
Đổi sang khung lớn
Tải file từ máy ghi yêu cầu trong file
Bye

 

[Hoàng Trọng Nghĩa]

Nhờ các bạn giúp mình tạo 1 comman button xoá đặt tại ô A5 (ở tất cả các sheet). Nếu nhấn vào nút xoá ở sheet nào thì tự động xoá tất cả các dòng không có dữ liệu, trừ từ dòng Tổng trở xuống.

Các bạn xem trong file đính kèm. Chân thành cảm ơn các bạn.

http://www.mediafire.com/?zkkjzy1jyoy

Bạn copy Code này vào Module sẽ xóa dòng rỗng tại 1 sheet!

Sub Delete_RowBlank()
    With Cells
        .SpecialCells(2).EntireRow.Hidden = True
        .SpecialCells(12).EntireRow.Delete
        .EntireRow.Hidden = False
    End With
End Sub

<Nguồn: Trung Chinh>

Nếu muốn xóa toàn bộ dòng rỗng trong workbook bạn chép code này vào:

Option Explicit
Sub DeleteCompletelyBlankRows()
  Dim Sh As Worksheet
  On Error Resume Next
  For Each Sh In Worksheets
     Sh.UsedRange.SpecialCells(4).EntireRow.Delete
  Next
End Sub

<Nguồn: ndu96081631>