Xóa các dòng chứa các ô trống (1 người xem)

[ghostriderxxx]

Chào mọi người, mình đang có một vấn đề, mong mọi người giúp đỡ. Trong file excel bên dưới có cột G có các cell trống, mình cần delete các dòng chứa các ô trống đó, mình đã thử Go to - Special - Blanks nhưng không được. Mong mọi người có ý kiến giúp đỡ!

 

[giangleloi]

Chào mọi người, mình đang có một vấn đề, mong mọi người giúp đỡ. Trong file excel bên dưới có cột G có các cell trống, mình cần delete các dòng chứa các ô trống đó, mình đã thử Go to - Special - Blanks nhưng không được. Mong mọi người có ý kiến giúp đỡ!

Nếu làm thủ công thì làm như sau:
1/ Filter cột G chọn Blanks.
2/Chọn từ dòng 1 tới hết dữ liệu của bạn => F5 => Special => Visible cells only => OK.
3/Click phải chuột chọn Delete.

 

[befaint]

Nếu làm thủ công thì làm như sau:
1/ Filter cột G chọn Blanks.
2/Chọn từ dòng 1 tới hết dữ liệu của bạn => F5 => Special => Visible cells only => OK.
3/Click phải chuột chọn Delete.

Chọn từ dòng 3. Nếu chọn từ dòng 1 thì sẽ xóa mất dòng 1 có dữ liệu.

 

[befaint]

Chào mọi người, mình đang có một vấn đề, mong mọi người giúp đỡ. Trong file excel bên dưới có cột G có các cell trống, mình cần delete các dòng chứa các ô trống đó, mình đã thử Go to - Special - Blanks nhưng không được. Mong mọi người có ý kiến giúp đỡ!

Bạn thử làm theo video sau:

[video=youtube;IfVbN8o2obw]https://www.youtube.com/watch?v=IfVbN8o2obw&feature=youtu.be[/video]

 

[phulien1902]

Chào mọi người, mình đang có một vấn đề, mong mọi người giúp đỡ. Trong file excel bên dưới có cột G có các cell trống, mình cần delete các dòng chứa các ô trống đó, mình đã thử Go to - Special - Blanks nhưng không được. Mong mọi người có ý kiến giúp đỡ!

Tham khảo:

Sub DELABC()
    Dim i As Long
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        With Sheets(1)
            For i = 1000 To 2 Step -1
                If .Cells(i, 7).Value = "" Then .Cells(i, 7).EntireRow.Delete
            Next
        End With
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

 

[giangleloi]

Chọn từ dòng 3. Nếu chọn từ dòng 1 thì sẽ xóa mất dòng 1 có dữ liệu.

À ừa. Quên mất là phải chừa dòng Filter ra. Hehe.

 

[ghostriderxxx]

em đã làm được! cảm ơn mọi người rất nhiều