Cắt hàng theo điều kiện.

Liên hệ QC

havietchuong

Thành viên tiêu biểu
Tham gia
16/6/09
Bài viết
490
Được thích
570
Giới tính
Nam
Nghề nghiệp
Giáo viên tiểu học.
Nhờ các bạn giúp mình cắt những hàng với điều kiện ở 2 cột: Tác giảTên sách đều là nt.
Cám ơn các bạn. (Tìm mãi không biết ở đâu, thôi đành nhờ vậy !!!)
 

File đính kèm

Bạn xài con macro ni, nha!

PHP:
Option Explicit
Sub CatHang()
 Dim Rng As Range, sRng As Range, dRng As Range
 Dim MyAdd As String:         Const NT As String = "nt"
 
 Set Rng = Range("D1:D" & [D65500].End(xlUp).Row)
 Set sRng = Rng.Find(NT, , xlFormulas, xlPart)
 If Not sRng Is Nothing Then
   MyAdd = sRng.Address
   Do
      If sRng.Offset(, 1).Value = NT Then
         If dRng Is Nothing Then
            Set dRng = sRng
         Else
            Set dRng = Union(dRng, sRng)
         End If
      End If
      Set sRng = Rng.FindNext(sRng)
   Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
 If Not dRng Is Nothing Then
18    MsgBox dRng.Address
'   dRng.EntireRow.Delete '
 Else
   MsgBox "Nothing"
 End If
End Sub

Chú í dòng lệnh xóa các dòng thỏa iêu cầu đang bị vô hiệu hóa; Mục đích nhằm để bạn kiểm tra lần cuối.

Sau khi kiểm & thấy đúng, bạn bỏ dấu nháy đi (hay dời dấu đó lên trên 1 dòng lệnh cũng xong)

Chúc vui vẽ

(Rất mong bạn đến đây cùng tham gia: http://www.giaiphapexcel.com/forum/showthread.php?t=34560)
 
Nhờ các bạn giúp mình cắt những hàng với điều kiện ở 2 cột: Tác giảTên sách đều là nt.
Cám ơn các bạn. (Tìm mãi không biết ở đâu, thôi đành nhờ vậy !!!)
Thấy các Thầy: Sa,Haiyen, Ndu, Sealand, Dom.....và các bạn viết hay quá, mình cũng mò mẫn học cho vui, có gì sai đừng cười nhé, mình chỉ dấu thôi ( để bạn kiểm tra) muốn xóa thì đổi hidden thành delete nhé
Thân
 

File đính kèm

Sao không dùng autofilter cả 2 cột rồi xoá nhỉ?
 
Nhờ các bạn giúp mình cắt những hàng với điều kiện ở 2 cột: Tác giảTên sách đều là nt.
Cám ơn các bạn. (Tìm mãi không biết ở đâu, thôi đành nhờ vậy !!!)
Cho hỏi: CẮT nghĩa là cái gì vậy? Có phải là CẮT BỎ không?
Mà dù nó nghĩa là gì thì tôi nghĩ dùng AutoFilter có lẽ nhanh nhất ---> Bạn đã thử chưa
- AutoFilter cột TÁC GIẢ với điều kiện = "nt"
- AutoFilter cột TÊN SÁCH với điều kiện = "nt"
- Sau đó muốn CẮT hay THIẾN gì tùy ý
 
Web KT

Bài viết mới nhất

Back
Top Bottom