Удаление ячеек которые содержат менее 3-4 символов

[Z@kat]

Доброго времени суток, форумчане!

Ситуация такая: есть лист, в различных ячейках которого, содержится значения значения от 1 до 6 символов.

Подскажите, пожалуйста, каким образом можно удалить (очистить) ячейки которые содержут менее 3-х символов.

При этом не удаляя ряды, не используя автофильтр (чтобы все осталось на своих местах, только ячейки, где было меньше 3 символов очистились).

Может макрос кто сможет написать или посоветуйте другое решение?

[DiemonStar]

  For Each Rw In ActiveSheet.[A1].CurrentRegion.Rows
    If Len(Rw.Cells(1, 2)) < 4 Then
      Rw.Cells(1, 2) = ""
    End If
  Next Rw

если правильно привязать к своим данным, то всё что нужно поудаляет.

[Z@kat]

Сообщение от DiemonStar

  For Each Rw In ActiveSheet.[A1].CurrentRegion.Rows
    If Len(Rw.Cells(1, 2)) < 4 Then
      Rw.Cells(1, 2) = ""
    End If
  Next Rw

если правильно привязать к своим данным, то всё что нужно поудаляет.

К сожалению, не работает.
Выделяет первую строку "For Each Rw In ActiveSheet.[A1].CurrentRegion.Rows" и пишет Compile Error, Invalid outside procedure

[The_Prist]

Так Вам для начала хотя бы азы написания макросов надо учить. Вам дали код, но он не вписан в процедуру:

Sub Something()
'код
End Sub

т.к. подразумевается, что задав вопрос

Может макрос кто сможет написать

Вы хоть какие-то навыки имеете...

[Казанский]

Пробуйте

Sub bb()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If Len(c) < 4 Then c.ClearContents
Next
End Sub

[ZORRO2005]

Для очистки ячеек , где 1 символ:
1. CTRL+H
2. В "Найти" ставим ?
3. Ставим галочку в "Ячейка целиком"
4. Заменить все

Для очистки ячеек , где 2 символа:
1. CTRL+H
2. В "Найти" ставим ??
3. Ставим галочку в "Ячейка целиком"
4. Заменить все

[Z@kat]

Сообщение от The_Prist

Так Вам для начала хотя бы азы написания макросов надо учить. Вам дали код, но он не вписан в процедуру:

Sub Something()
'код
End Sub

т.к. подразумевается, что задав вопросВы хоть какие-то навыки имеете...

Я пока только учусь работать с макросами и естественно делаю ошибки, поэтому "хоть какие-то навыки" приходят с опытом. В любом случае, спасибо за совет. К сожалению, макрос результатов не дал.

Сообщение от Казанский

Пробуйте

Sub bb()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If Len(c) < 4 Then c.ClearContents
Next
End Sub

Большое спасибо! Работает!

Сообщение от ZORRO2005

Для очистки ячеек , где 1 символ:
1. CTRL+H
2. В "Найти" ставим ?
3. Ставим галочку в "Ячейка целиком"
4. Заменить все

Для очистки ячеек , где 2 символа:
1. CTRL+H
2. В "Найти" ставим ??
3. Ставим галочку в "Ячейка целиком"
4. Заменить все

Большое спасибо! Так даже проще, буду знать про такой способ!
Тему можно закрывать.