xóa dòng có điều kiện bên trái qua 3 ký tự (1 người xem)

[katylove83]

chào các anh chị

em muốn viết code xóa dòng đó với điều kiện nếu tại cột H bên trái qua 3 ký tự nếu =655 thì xóa đi dòng đó

file đính kèm
nhờ các anh chị giúp

cám ơn

 

[Quang_Hải]

chào các anh chị

em muốn viết code xóa dòng đó với điều kiện nếu tại cột H bên trái qua 3 ký tự nếu =655 thì xóa đi dòng đó

file đính kèm
nhờ các anh chị giúp

cám ơn

Sub XoaDong()
Dim Data(), i&, j&, k&
Data = [C2].CurrentRegion.Value
For i = 1 To UBound(Data)
   If Left(Data(i, 6), 3) <> "655" Then
      k = k + 1
      For j = 1 To UBound(Data, 2)
         Data(k, j) = Data(i, j)
      Next
   End If
Next
[C2].CurrentRegion.Clear
[C2].Resize(k, UBound(Data, 2)) = Data
End Sub

 

[ndu96081631]

chào các anh chị

em muốn viết code xóa dòng đó với điều kiện nếu tại cột H bên trái qua 3 ký tự nếu =655 thì xóa đi dòng đó

file đính kèm
nhờ các anh chị giúp

cám ơn

Cái này ta dùng AutoFilter cột H theo điều kiện 655*
Filter xong rồi cứ vậy mà xóa thôi