Xoá Dòng có điều kiện

[doanhoanghai]

Chào cả nhà !

Mình có một vướng mắc mà không sao nghĩ ra cách giải quyết đó là mình muốn xoá hết những dòng vàng mà làm thủ công thì giúp mình với !

Thank

 

[huuthang_bd]

Chào cả nhà !

Mình có một vướng mắc mà không sao nghĩ ra cách giải quyết đó là mình muốn xoá hết những dòng vàng mà làm thủ công thì giúp mình với !

Thank

Dùng công thức sau ở một cột phụ. Cột K chẳng hạn

K13=1/(ISERROR(A13*1)+(C13<>""))

Copy xuống hết các dòng.
Thực hiện tuần tự các bước sau:
Quét chọn cột phụ có công thức | Ctrl + G | Special... | Formulas - Errors | Ok | Ctrl + - Entire Row | Ok
Đây là file tôi đã làm xong.

 

[yeuthamhangxom]

Dùng công thức sau ở một cột phụ. Cột K chẳng hạn

K13=1/(ISERROR(A13*1)+(C13<>""))

Copy xuống hết các dòng.
Thực hiện tuần tự các bước sau:
Quét chọn cột phụ có công thức | Ctrl + G | Special... | Formulas - Errors | Ok | Ctrl + - Entire Row | Ok
Đây là file tôi đã làm xong.

Quá hay bạn ạ nhưng ở bước
Quét chọn cột phụ có công thức | Ctrl + G | Special... | Formulas - Errors | Ok | Ctrl + - Entire Row | Ok mình phải làm là Ctrl kích phải chuột chọn Delete...chọn Entire Row.
Cách của bạn cũng rất nhanh.
Cám ơn bạn nhiều.

 

[ChanhTQ@]

Macro của bạn đây, xin mời

Option Explicit
Sub DeleteYRows()
 Dim Clls As Range, dRng As Range, Rws As Long
 Const GPE As String = "GPE Xin Luu Ý:"
 
 Rws = [A65500].End(xlUp).Row
 For Each Clls In Range("A2:A" & Rws)
   If Clls.Interior.ColorIndex > 2 Then
      If dRng Is Nothing Then
         Set dRng = Clls
      Else
         Set dRng = Union(dRng, Clls)
      End If
   End If
 Next Clls
 dRng.EntireRow.Delete
 MsgBox "Da Xóa " & (Rws - [A65500].End(xlUp).Row) & " Dòng", , GPE
End Sub

 

[huuthang_bd]

Quá hay bạn ạ nhưng ở bước
Quét chọn cột phụ có công thức | Ctrl + G | Special... | Formulas - Errors | Ok | Ctrl + - Entire Row | Ok mình phải làm là Ctrl kích phải chuột chọn Delete...chọn Entire Row.
Cách của bạn cũng rất nhanh.
Cám ơn bạn nhiều.

Ctrl + - là phím tắt của Right Click | Delete
Chỗ bạn bôi đỏ là 2 bước. Tôi thiếu dấu ngăn cách. Đúng ra là vầy:
Ctrl + - | Entire Row | Ok