code xóa dữ liệu không cần thiết

[nmhung49]

Mình muốn xóa dữ liệu các ô mà chiều dài (len) của các ô trong cột A không phải là 12 đó là các ô mà mình tô màu vàng thì mình dùng code như thế nào tại vì mình đang cố gắng học VBA. Và đồng thời mình delete các dòng đó luôn mong các bạn giúp. Cảm ơn các bạn và anh chị nhiều. Nếu em có post sai chủ đề mong các mod chuyển giúp

 

[ndu96081631]

Mình muốn xóa dữ liệu các ô mà chiều dài (len) của các ô trong cột A không phải là 12 đó là các ô mà mình tô màu vàng thì mình dùng code như thế nào tại vì mình đang cố gắng học VBA. Và đồng thời mình delete các dòng đó luôn mong các bạn giúp. Cảm ơn các bạn và anh chị nhiều. Nếu em có post sai chủ đề mong các mod chuyển giúp

- Tạo 1 cột phụ với công thức =LEN(A3)
- AutoFilter cột này với điều kiện Does not Equal = 12
- Xóa tất tần tật những cái đã được fileter
------------------
Dùng VBA cũng có thể làm theo hướng này (nhanh nhất)... còn như không muốn cột phụ thì dùng vòng lập for duyệt qua các cell thôi

Sub Test()
  Dim i As Long
  For i = Range("A65536").End(xlUp).Row To 3 Step -1
    If Len(Cells(i, 1)) <> 12 Then Cells(i, 1).EntireRow.Delete
  Next i
End Sub