Xóa những dòng có số ký tự bé hơn 10 ?

[kegiaumat055]

Các bạn giúp mình xóa những dòng có số ký tự bé hơn 10 nhé ! Cảm ơn các bạn nhiều !

 

[Ba Tê]

Các bạn giúp mình xóa những dòng có số ký tự bé hơn 10 nhé ! Cảm ơn các bạn nhiều !

Thử với Sub này xem sao

Public Sub XoaDong()
Dim Rng As Range, I As Long, C As Long
C = [A65000].End(xlUp).Row
Set Rng = Range("A1:A" & C)
For I = C To 1 Step -1
    If Len(Cells(I, 1)) < 10 Then Cells(I, 1).EntireRow.Delete
Next I
Set Rng = Nothing
End Sub

 

[kegiaumat055]

Thử với Sub này xem sao

Public Sub XoaDong()
Dim Rng As Range, I As Long, C As Long
C = [A65000].End(xlUp).Row
Set Rng = Range("A1:A" & C)
For I = C To 1 Step -1
    If Len(Cells(I, 1)) < 10 Then Cells(I, 1).EntireRow.Delete
Next I
Set Rng = Nothing
End Sub

Code hoàn hảo !
Cảm ơn bạn rất nhiều !

 

[Quang_Hải]

Thử với Sub này xem sao

Public Sub XoaDong()
Dim Rng As Range, I As Long, C As Long
C = [A65000].End(xlUp).Row
Set Rng = Range("A1:A" & C)
For I = C To 1 Step -1
    If Len(Cells(I, 1)) < 10 Then Cells(I, 1).EntireRow.Delete
Next I
Set Rng = Nothing
End Sub

Em thì mần kiểu này nè anh. Không vòng lặp hy vọng chạy đua về mức trước anh xíu nếu là dữ liệu nhiều, chưa biết có lỗi gì không.

Sub xoa()
With Range([A1], [A65536].End(3))
   .Offset(, 1) = "=Len(A1)"
   .Resize(, 2).AutoFilter 2, "<10"
   .EntireRow.Delete
   .Offset(, 1).ClearContents
End With
End Sub

 

[Ba Tê]

Em thì mần kiểu này nè anh. Không vòng lặp hy vọng chạy đua về mức trước anh xíu nếu là dữ liệu nhiều, chưa biết có lỗi gì không.

Sub xoa()
With Range([A1], [A65536].End(3))
   .Offset(, 1) = "=Len(A1)"
   .Resize(, 2).AutoFilter 2, "<10"
   .EntireRow.Delete
   .Offset(, 1).ClearContents
End With
End Sub

Do dữ liệu "mơ hồ", không biết trong bảng dữ liệu ngaoì cột A còn bi nhiêu cột nữa.
Do hỏi "mơ hồ" nên tôi làm theo kiểu "mơ hồ" có dự trù một số "ý quên em chưa nói rõ" của tác giả.
Nếu dữ liệu biết rõ số cột, dòng thì........ chắc phải làm cách khác.
Híc!

 

[ptm0412]

Để tổng quát thì thay

.Offset(, 1) = "=Len(A1)"

Bằng

.Offset(, 1) = "=Len(RC[-1])"