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.
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
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é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ả và 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?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ả và 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 !!!)