Удалить строки, если в ячейке повторяются символы

@fallen_santa · Регистрация: 17.09.2015

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Не силен в Экселе, помогите, пожалуйста, решить такую задачу. Есть столбец со значениями. Значения состоят только из цифр. Необходимо удалить (или скрыть) строки, если любая цифра в ячейке повторяется более 1 раза. На примере: есть ячейки со значениями, допустим 31510 21010 69851 79851 45746. Соответственно строки с 31510 21010 45746 нужно удалить (или скрыть), 69851 79851 - оставить.

@AlexM · 18.09.2015, 00:09

Значения скрыты условным форматированием, цвет букв белый.
В условном форматировании использована именованная формула УФ

Код

=ИЛИ(ЧАСТОТА(-ПСТР(Лист1!A1;{1:2:3:4:5};1);-ПСТР(Лист1!A1;{1:2:3:4:5};1))>1)

@Svsh2015 · 19.09.2015, 11:14

добрый день ,попробуйте протестировать макросы

Visual Basic

Sub replica()
  Dim i&, i1&, st$
  i1 = Range("A" & Cells.Rows.Count).End(xlUp).Row
  st = "0.*?0"
 For i = 1 To 9
    st = st & "|" & i & ".*?" & i
 Next
  For i = 1 To i1
    t = Range("A" & i)
    With CreateObject("vbscript.regexp")
     .Global = True
     .Pattern = st
      If .test(t) Then Range("C" & i).EntireRow.Hidden = True
    End With
  Next
End Sub
 
Sub восстановить()
   Dim i&, i1&
   i1 = Range("A" & Cells.Rows.Count).End(xlUp).Row
   For i = 1 To i1 + 1
      Range("C" & i).EntireRow.Hidden = False
  Next
End Sub

@fallen_santa · 22.09.2015, 09:41 **[ТС]**

Все работает, спасибо!

@fallen_santa 0 / 0 / 0 Регистрация: 17.09.2015 Сообщений: 2
		1
	Удалить строки, если в ячейке повторяются символы 17.09.2015, 23:40. Показов 1709. Ответов 3 Метки нет (Все метки) Доброго времени суток! Не силен в Экселе, помогите, пожалуйста, решить такую задачу. Есть столбец со значениями. Значения состоят только из цифр. Необходимо удалить (или скрыть) строки, если любая цифра в ячейке повторяется более 1 раза. На примере: есть ячейки со значениями, допустим 31510 21010 69851 79851 45746. Соответственно строки с 31510 21010 45746 нужно удалить (или скрыть), 69851 79851 - оставить. 0

@fallen_santa 0 / 0 / 0 Регистрация: 17.09.2015 Сообщений: 2
	22.09.2015, 09:41 [ТС]	4
	Все работает, спасибо! 0

Опции темы

Удалить строки, если в ячейке повторяются символы

Решение