Xin các bác giúp xóa hàng trùng nhau theo điều kiện

[uronmapu]

Em có 1 file excel như đính kèm. với các hàng trùng nhau.
Em muốn xóa đi các hàng bên dưới (để lại giá trị trắng) chỉ giữ lại hàng đầu tiên.
Mong các bác giúp em, e cảm ơn nhiều.

 

[phulien1902]

Em có 1 file excel như đính kèm. với các hàng trùng nhau.
Em muốn xóa đi các hàng bên dưới (để lại giá trị trắng) chỉ giữ lại hàng đầu tiên.
Mong các bác giúp em, e cảm ơn nhiều.

Bạn thử:

Sub abc()
    Dim i As Long, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 2 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then
            Cells(i, 1).Resize(, 4).ClearContents
        End If
    Next
End Sub

 

[HieuCD]

Bạn thử:

Sub abc()
    Dim i As Long, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then
            Cells(i, 1).Resize(, 4).ClearContents
        End If
    Next
End Sub

Báo lỗi khi i=1

 

[phulien1902]

Báo lỗi khi i=1

Xin cảm ơn bác, em đã sửa lại Code.

 

[TheThienChu]

Em có 1 file excel như đính kèm. với các hàng trùng nhau.
Em muốn xóa đi các hàng bên dưới (để lại giá trị trắng) chỉ giữ lại hàng đầu tiên.
Mong các bác giúp em, e cảm ơn nhiều.

Góp thêm 1 cách

Option Explicit

Public Sub uronmapu()
Dim i, k
With Sheet1
k = .Range("A1")
For i = 2 To Sheet1.Range("A1000000").End(xlUp).Row
    If .Range("A" & i) = k Then
        .Range("A" & i & ": C" & i).ClearContents
    Else
        k = .Range("A" & i)
    End If
Next i
End With
End Sub

 

[uronmapu]

Cảm ơn các bác, Tương tự nhưng nếu e chỉ muốn xóa các giá trị của hàng ở cột B và C giống nhau đi giữ lại cột A thì thay đổi code như thế nào ạ,
Em cảm ơn,

 

[phulien1902]

Cảm ơn các bác, Tương tự nhưng nếu e chỉ muốn xóa các giá trị của hàng ở cột B và C giống nhau đi giữ lại cột A thì thay đổi code như thế nào ạ,
Em cảm ơn,

Với bài toán của bạn:

Sub abc2()
    Dim i As Long, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 2 Step -1
        If Cells(i, 2) = Cells(i - 1, 2) Then
            Cells(i, 2).Resize(, 2).ClearContents
        End If
    Next
End Sub

 

[uronmapu]

Với bài toán của bạn:

Sub abc2()
    Dim i As Long, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 2 Step -1
        If Cells(i, 2) = Cells(i - 1, 2) Then
            Cells(i, 2).Resize(, 2).ClearContents
        End If
    Next
End Sub

cảm ơn bác nhiều lắm