Cần code để xóa các dòng theo điều kiện. (1 người xem)

[suteki12]

Cho mình hỏi code để khi mình tạo 1 button xóa dòng, những dòng nào nằm ở giữa 2 dòng mà mình đã đánh dấu: VD dòng thứ 1 có giá trị ô A2 là "Dau" và dòng thứ 2 có giá trị ô A32 là "Cuoi". Dòng đầu thì giữ nguyên còn dòng thứ 2 có thể thay đổi vì có thể mình thêm dòng. Cám ơn các bạn nhiều.

 

[nghiaphuc]

Cho mình hỏi code để khi mình tạo 1 button xóa dòng, những dòng nào nằm ở giữa 2 dòng mà mình đã đánh dấu: VD dòng thứ 1 có giá trị ô A2 là "Dau" và dòng thứ 2 có giá trị ô A32 là "Cuoi". Dòng đầu thì giữ nguyên còn dòng thứ 2 có thể thay đổi vì có thể mình thêm dòng. Cám ơn các bạn nhiều.

Đưa file Excel lên đi bạn, mô tả như vầy mơ hồ quá.

 

[suteki12]

Đưa file Excel lên đi bạn, mô tả như vầy mơ hồ quá.

Mình muốn xóa các dòng nằm trong 2 ô đã tô màu xanh và vàng trong hình như vầy nè, dòng màu vàng thì nằm im còn dòng xanh có thể thay đổi vì nhiều lúc mình chèn thêm dòng . Vì file của mình hơi nặng nên up lên lâu nên mình chỉ có hình vậy thôi. Cám ơn bạn.

 

[nghiaphuc]

View attachment 89491
Mình muốn xóa các dòng nằm trong 2 ô đã tô màu xanh và vàng trong hình như vầy nè, dòng màu vàng thì nằm im còn dòng xanh có thể thay đổi vì nhiều lúc mình chèn thêm dòng . Vì file của mình hơi nặng nên up lên lâu nên mình chỉ có hình vậy thôi. Cám ơn bạn.

Bạn sử dụng code sau nhé:

Sub DelRows()
    Dim Cll As Range
    Set Cll = [A:A].Find("Dau", LookAt:=xlWhole)
    If Cll Is Nothing Then Exit Sub
    Do While Cll.Offset(1).Value <> "Cuoi"
        Cll.Offset(1).EntireRow.Delete
    Loop
End Sub

 

[Hai Lúa Miền Tây]

Bạn sử dụng code sau nhé:

Sub DelRows()
    Dim Cll As Range
    Set Cll = [A:A].Find("Dau", LookAt:=xlWhole)
    If Cll Is Nothing Then Exit Sub
    Do While Cll.Offset(1).Value <> "Cuoi"
        Cll.Offset(1).EntireRow.Delete
    Loop
End Sub

Nếu đơn thuần chỉ để lại với ĐK là chữ 'Dau' và 'Cuoi' thì không cần dùng vòng lặp đâu Phúc à.

 

[nghiaphuc]

Nếu đơn thuần chỉ để lại với ĐK là chữ 'Dau' và 'Cuoi' thì không cần dùng vòng lặp đâu Phúc à.

Ý anh là AutoFilter rồi Delete Row?!

 

[suteki12]

Cám ơn mọi người đã giúp đỡ.