Xóa dòng hoặc ô trống trong Excel (3 người xem)

[Hana Quỳnh]

Anh/ Chị ơi, em có vấn đề thắc mắc như sau:
Khi nhiều dòng có dùng Merge & Center và bây giờ em xóa Merge & Center thì khi đó có dòng trống, giờ em muốn xóa, em đã tìm trên các trang web và đã làm theo cách hướng dẫn bên dưới, nhưng khi em làm tới bước 4, nó xóa luôn dòng đầu bôi đen ( không phải dòng trống ).
Bước 1: Đầu tiên các bạn cần chọn vùng dữ liệu cần xóa, các bạn có thể chọn toàn bộ dữ liệu trong sheet bằng tổ hợp phím Ctrl + A.
Bước 2: Tiếp theo, các bạn chọn thẻ Home -> Find&Select -> Go To Special
Bước 3: Xuất hiện hộp thoại Go To Special các bạn chọn Blanks và nhấn OK
Bước 4: Lúc này tất cả các ô trống đều được chọn, các bạn chọn thẻ Home -> Delete -> Delete Sheet Rows để xóa các dòng trống.
Anh/ Chị hướng dẫn rõ giùm em.
Em cảm ơn Anh/ Chị nhiều

 

[giaiphap]

Anh/ Chị ơi, em có vấn đề thắc mắc như sau:
Khi nhiều dòng có dùng Merge & Center và bây giờ em xóa Merge & Center thì khi đó có dòng trống, giờ em muốn xóa, em đã tìm trên các trang web và đã làm theo cách hướng dẫn bên dưới, nhưng khi em làm tới bước 4, nó xóa luôn dòng đầu bôi đen ( không phải dòng trống ).
Bước 1: Đầu tiên các bạn cần chọn vùng dữ liệu cần xóa, các bạn có thể chọn toàn bộ dữ liệu trong sheet bằng tổ hợp phím Ctrl + A.
Bước 2: Tiếp theo, các bạn chọn thẻ Home -> Find&Select -> Go To Special
Bước 3: Xuất hiện hộp thoại Go To Special các bạn chọn Blanks và nhấn OK
Bước 4: Lúc này tất cả các ô trống đều được chọn, các bạn chọn thẻ Home -> Delete -> Delete Sheet Rows để xóa các dòng trống.
Anh/ Chị hướng dẫn rõ giùm em.
Em cảm ơn Anh/ Chị nhiều

Mục đích cuối cùng của bạn là muốn xóa cái gì? ở cột nào? Khi bạn xóa thì nó gặp tình trạng thế nào? Theo bạn thì khi xóa những dòng nào sẽ còn lại? Lý do...

 

[Lê Hồng Minh83]

Anh/ Chị ơi, em có vấn đề thắc mắc như sau:
Khi nhiều dòng có dùng Merge & Center và bây giờ em xóa Merge & Center thì khi đó có dòng trống, giờ em muốn xóa, em đã tìm trên các trang web và đã làm theo cách hướng dẫn bên dưới, nhưng khi em làm tới bước 4, nó xóa luôn dòng đầu bôi đen ( không phải dòng trống ).
Bước 1: Đầu tiên các bạn cần chọn vùng dữ liệu cần xóa, các bạn có thể chọn toàn bộ dữ liệu trong sheet bằng tổ hợp phím Ctrl + A.
Bước 2: Tiếp theo, các bạn chọn thẻ Home -> Find&Select -> Go To Special
Bước 3: Xuất hiện hộp thoại Go To Special các bạn chọn Blanks và nhấn OK
Bước 4: Lúc này tất cả các ô trống đều được chọn, các bạn chọn thẻ Home -> Delete -> Delete Sheet Rows để xóa các dòng trống.
Anh/ Chị hướng dẫn rõ giùm em.
Em cảm ơn Anh/ Chị nhiều

Sau khi bạn un merge thì vào DATA/SORT cho nó nhanh rồi xóa đi những dòng trống do merge tạo ra, xong. Làm như trên chi cho nó zắc zối

 

[HieuCD]

Anh/ Chị ơi, em có vấn đề thắc mắc như sau:
Khi nhiều dòng có dùng Merge & Center và bây giờ em xóa Merge & Center thì khi đó có dòng trống, giờ em muốn xóa, em đã tìm trên các trang web và đã làm theo cách hướng dẫn bên dưới, nhưng khi em làm tới bước 4, nó xóa luôn dòng đầu bôi đen ( không phải dòng trống ).
Bước 1: Đầu tiên các bạn cần chọn vùng dữ liệu cần xóa, các bạn có thể chọn toàn bộ dữ liệu trong sheet bằng tổ hợp phím Ctrl + A.
Bước 2: Tiếp theo, các bạn chọn thẻ Home -> Find&Select -> Go To Special
Bước 3: Xuất hiện hộp thoại Go To Special các bạn chọn Blanks và nhấn OK
Bước 4: Lúc này tất cả các ô trống đều được chọn, các bạn chọn thẻ Home -> Delete -> Delete Sheet Rows để xóa các dòng trống.
Anh/ Chị hướng dẫn rõ giùm em.
Em cảm ơn Anh/ Chị nhiều

Bước 1: chọn vùng dữ liệu cột A
Bước 2: Nhấn phím F5 -> chọn Special
Bước 3: Xuất hiện hộp thoại Go To Special các bạn chọn Blanks và nhấn OK
Bước 4: Lúc này tất cả các ô trống đều được chọn, các bạn chọn thẻ Home -> Delete -> Delete Sheet Rows để xóa các dòng trống.

 

[Hana Quỳnh]

Dạ em muốn xóa tất cả dòng màu vàng mà em đã bôi đen trong file đính kèm ạ.

 

[phulien1902]

Dạ em muốn xóa tất cả dòng màu vàng mà em đã bôi đen trong file đính kèm ạ.

Bạn thử:

Sub abc()
    Application.ScreenUpdating = False
    With Range("A3", Range("F" & Rows.Count).End(3))
        .AutoFilter Field:=1, Criteria1:=""
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

 

[be_09]

Thử code này:

Sub Xoa()
    Sheet3.Range("A4:A500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("A4").Select
End Sub