vumian
Mỗi bậc thang là mỗi Cell
- Tham gia
- 12/3/07
- Bài viết
- 267
- Được thích
- 186
- Nghề nghiệp
- employee only, not a boss
Dear all,
Code trên là tìm từ đầu cột đến dòng cuối cùng trong range, nếu cells.value nào là "abc" thì xóa dòng đó, mà chạy chậm, nhìn hôg đẹp, chưa thích lắm, bác xem sửa lại giúp nha
Và mình cũng xin luôn code nào tìm không phải là dòng có value là "abc" thì xóa nhữg dòng đó,
Cam on nhieu
Mã:
Dim LastRow As Integer
Dim Col As Long
Sub Del_ItemTotal()
sFindString = "abc:"
With Worksheets("Sheet1")
Col = .Range("B2").Column
LastRow = .Cells(.Rows.Count, Col).End(xlUp).Row
End With
'MsgBox Col ,'MsgBox lastrow
Set tmp = Range("B2:B" & LastRow).Find(What:=sFindString, LookAt:=xlWhole, SearchDirection:=xlNext)
While Not (tmp Is Nothing)
tmp.EntireRow.Delete
Set tmp = Range("B2:B" & LastRow).Find(What:=sFindString, LookAt:=xlWhole, SearchDirection:=xlNext)
Wend
End Sub
Code trên là tìm từ đầu cột đến dòng cuối cùng trong range, nếu cells.value nào là "abc" thì xóa dòng đó, mà chạy chậm, nhìn hôg đẹp, chưa thích lắm, bác xem sửa lại giúp nha
Và mình cũng xin luôn code nào tìm không phải là dòng có value là "abc" thì xóa nhữg dòng đó,
Cam on nhieu