Xoá nhóm dòng có chung kí hiệu

[pt_hcl]

Bảng dữ liệu là các nhóm dòng dữ liệu - mỗi nhóm dòng do 2 dòng dữ liệu ghép lại với nhau. GPE có thể giúp mình cách xoá đi các nhóm dòng mà cả 2 dòng đều có chung kí hiệu là ABA. Mình lấy ví dụ dữ liệu ở sheet1 và kết quả sau khi xoá các nhóm dòng có chung kí hiệu ABA ở sheet2. Mong GPE giúp đỡ, xin cảm ơn!

 

[leonguyenz]

Bảng dữ liệu là các nhóm dòng dữ liệu - mỗi nhóm dòng do 2 dòng dữ liệu ghép lại với nhau. GPE có thể giúp mình cách xoá đi các nhóm dòng mà cả 2 dòng đều có chung kí hiệu là ABA. Mình lấy ví dụ dữ liệu ở sheet1 và kết quả sau khi xoá các nhóm dòng có chung kí hiệu ABA ở sheet2. Mong GPE giúp đỡ, xin cảm ơn!

Bạn thử dùng Marco này xem:
[gpecode=vb]
Sub Button3_Click()
Dim iR As Long, Rng As Range
Set Rng = Sheet1.Range([A5], [A65535].End(3))
For iR = Rng.Rows.Count To 1 Step -1
If Rng(iR) Like "*ABA*" And Rng(iR).Offset(1) Like "*ABA*" Then
Rng(iR).Resize(2).EntireRow.Delete
If Rng(iR) = Empty And Rng(iR).Offset(-1) = Empty Then
Rng(iR).EntireRow.Delete
End If
End If
Next iR
End Sub
[/gpecode]

 

[pt_hcl]

Bạn thử dùng Marco này xem:
[gpecode=vb]
Sub Button3_Click()
Dim iR As Long, Rng As Range
Set Rng = Sheet1.Range([A5], [A65535].End(3))
For iR = Rng.Rows.Count To 1 Step -1
If Rng(iR) Like "*ABA*" And Rng(iR).Offset(1) Like "*ABA*" Then
Rng(iR).Resize(2).EntireRow.Delete
If Rng(iR) = Empty And Rng(iR).Offset(-1) = Empty Then
Rng(iR).EntireRow.Delete
End If
End If
Next iR
End Sub
[/gpecode]

Vâng, rất tuyệt ạ! Xin chân thành cảm ơn!