Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как удалить строки ячейки которых содержат только буквы?
 
#1
13.03.2020 16:49:27
Есть таблица. В ней несколько колонок, но одна колонка - Артикулы.
Нужно удалить те строки, в которых артикулы состоят только из букв (то есть не существует таких артикулов, это скорее всего названия брендов).

Может есть какой готовый макрос для этого? Или подскажите как отфильтровать функцией?

Пример прикрепляю:
Изменено: lidolov - 13.03.2020 16:50:11
 
 
 
#2
13.03.2020 17:13:41
Цитата
Может есть какой готовый макрос для этого?
Готового не знаю, а вот написал такой
Код
Sub DelRow()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
 With CreateObject("VBScript.RegExp")
  .Pattern = "\d"
  For i = iLastRow To 2 Step -1
    If Not .test(Cells(i, "A")) Then
      Rows(i).Delete
    End If
  Next
 End With
End Sub
 
 
 
#3
13.03.2020 17:26:51
Решение формулой. Формула массива. Ошибку можно скрыть функцией ЕСЛИОШБКА().
А можно удалить строки с ошибкой.
Код
=ИНДЕКС(A:A;НАИМЕНЬШИЙ(ЕСЛИ(МУМНОЖ(--ЕЧИСЛО(-ПСТР($A$2:$A$15;СТОЛБЕЦ(A:I);1));СТРОКА($1:$9)^0);СТРОКА(A$2:A$15));СТРОКА(A1)))
Алексей М.
 
 
 
Страницы: 1
Наверх