Xóa dòng có điều kiện

[trantuonganh2008]

Mình có vùng dữ liệu từ [A1 - [F100]. Bây giờ mình muốn xóa những dòng ở cột B nếu ô có dữ liệu là những ký tự hoặc cột D nếu ô có dữ liệu đầu tiên là ký tự Cám ơn nhiều!

 

[huuthang_bd]

Mình có vùng dữ liệu từ [A1 - [F100]. Bây giờ mình muốn xóa những dòng ở cột B nếu ô có dữ liệu là những ký tự hoặc cột D nếu ô có dữ liệu đầu tiên là ký tự
Cám ơn nhiều!

Ký tự là sao bạn? Có phải bạn muốn nói đến chữ cái. Chứ nếu không chứa ký tự thì chỉ có 1 trường hợp là cell đó rỗng thôi.

 

[trantuonganh2008]

Đúng rồi bạn, chỉ là chữ cái bình thường thôi. Cám ơn nhé!

 

[ChanhTQ@]

Vậy chuỗi trên cột 'D' có ký số đầu, như "2K3", . . . thì không xóa, phải không?

 

[trantuonganh2008]

Chính xác, cám ơn ChanhTQ@ nhé!

 

[ChanhTQ@]

& Macro của bạn đây:

Sub Delete4Rows()
 Dim eRw As Long, jJ As Long:           Dim dRng As Range
 
 eRw = [B65500].End(xlUp).Row
 If [D65500].End(xlUp).Row > eRw Then eRw = [D65500].End(xlUp).Row
 Set dRng = Range("A14:F" & eRw).SpecialCells(xlCellTypeConstants, 22)
 For jJ = eRw To 14 Step -1
   If Not Intersect(Cells(jJ, "B"), dRng) Is Nothing Then
      Cells(jJ, 1).EntireRow.Delete
   ElseIf Not Intersect(Cells(jJ, "D"), dRng) Is Nothing And Not _
      IsNumeric(Left(Cells(jJ, 4), 1)) Then
      Cells(jJ, 1).EntireRow.Delete
   End If
 Next jJ
End Sub

 

[trantuonganh2008]

Xin lỗi, điều kiện tại cột B là ký tự "DNTN A". Bạn sủa code lại dùm mình nhé!

 

[ndu96081631]

Xin lỗi, điều kiện tại cột B là ký tự "DNTN A". Bạn sủa code lại dùm mình nhé!

Bạn đưa dử liệu lên đi ---> Bạn nói tôi cũng hình dung được, nhưng chắc gì tạo code bạn đã áp dụng được vào file mình

 

[trantuonganh2008]

Bạn đưa dử liệu lên đi ---> Bạn nói tôi cũng hình dung được, nhưng chắc gì tạo code bạn đã áp dụng được vào file mình

"Các hạ" cứ yên chí, "tại hạ" biết cách sửa mà. Chỉ có cái tội dốt nên không tự mình viết code được thôi chứ sửa thì biết sửa mà...hehehe!!! Thân.

 

[ndu96081631]

"Các hạ" cứ yên chí, "tại hạ" biết cách sửa mà. Chỉ có cái tội dốt nên không tự mình viết code được thôi chứ sửa thì biết sửa mà...hehehe!!!
Thân.

Thì code của sư phụ ChanhTQ@ đấy ---> Bạn tự sửa đi ---> Còn hỏi gì nữa?
Mà thay vì hỏi đi hỏi lại, bạn đưa luôn file dử liệu lên có phải là đở mất công cho mọi người không? (cũng là đở mất công cho bạn)

 

[trantuonganh2008]

Ý mình nói ở đây là sửa những cái đơn giản thôi (chẳng hạn như sửa các ký tự theo yêu cầu của mình). Code của Chanh_TQ@ là xóa dòng khi ô nào ở có dữ liệu đứng đầu là chữ cái. Giờ mình muốn dữ liệu đứng đầu cụ thể hơn là "ABC" gì đó thì sửa lại như thế nào?