xóa các dòng trắng k có dữ liệu? (1 người xem)

[hoatinhyeu862000]

Như tiêu để e có 1 định dạng file gửi kèm e muốn xóa tất cả các dòng không có dữ liệu xen kẽ giữa các dòng có dữ liệu. Mong AC giúp đỡ em e đang cần gấp ạ.

 

[n0thing1988]

Bạn làm thế này
Bôi đen A4 đến C31
Ctrl+G / Special / Constants / OK
Ctrl + C -> đặt chuột ra chỗ khác Ctrl+V

 

[phulien1902]

Như tiêu để e có 1 định dạng file gửi kèm e muốn xóa tất cả các dòng không có dữ liệu xen kẽ giữa các dòng có dữ liệu. Mong AC giúp đỡ em e đang cần gấp ạ.

Thử với:

Sub ABC()
    Range("A4:C" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete
End Sub

 

[phulien1902]

Như tiêu để e có 1 định dạng file gửi kèm e muốn xóa tất cả các dòng không có dữ liệu xen kẽ giữa các dòng có dữ liệu. Mong AC giúp đỡ em e đang cần gấp ạ.

Cách #:

Sub abc2()
    Sheet1.Select
    With Range("a4", Range("a" & Rows.Count).End(xlUp))
        .AutoFilter 1, " "
        .EntireRow.Delete
    End With
End Sub

Hoặc:

Sub abc3()
    Dim i As Long
    Dim LR As Long
    Sheet1.Select
    LR = Range("A6500").End(xlUp).Row
    For i = LR To 4 Step -1
        If Range("A" & i).Value = 0 Then Rows(i).Delete Shift:=xlUp
    Next
End Sub

 

[hoatinhyeu862000]

Cảm ơn a. đã giúp đỡ đúng như sự kì vọng cảm ơn a

 

[phulien1902]

Cảm ơn a. đã giúp đỡ đúng như sự kì vọng cảm ơn a

Vậy thì bạn đừng quên nhấn vào nút "Cảm ơn" bên dưới để cảm ơn những người đã giúp mình nhé, hi.

 

[hoatinhyeu862000]

E làm xong đoạn đó rồi ạ