Удалить строки с двумя или более точками оставить с одной

@magdak0121 · Регистрация: 19.04.2013

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

есть список доменов и поддоменов например
google.com
maps.google.com
ru.maps.google.com
yandex.ru
maps.yandex.ru
ru.maps.yandex.ru

как понятно две точки или больше если в строке значит это поддомен и нужно удалить такую строку, если одна точка значит домен значит оставить
в итоге должно стать
google.com
yandex.ru

нужно не просто строки с 2 строчками удалить, а с 2 и более

Fairuza · 29.09.2022, 20:40

Например, формулой проставить количество точек, затем фильтр или сортировка с удалением строк с более чем единица

Код

=ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;".";""))

@Garic73 · 29.09.2022, 20:43

Так

Код

=IFERROR(INDEX($A$1:$A$9;AGGREGATE(15;6;ROW($A$1:$A$9)/(LEN($A$1:$A$9)-LEN(SUBSTITUTE($A$1:$A$9;".";""))=1);ROW(A1)));"")

@Vlad999 · 30.09.2022, 09:42

Вариант через поиск.
Выделение с Shift

@Dinoxromniy · 30.09.2022, 10:27

Не по теме:

Vlad999, это шедеврально! Браво!

@The_Prist · 30.09.2022, 14:20

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

Выделение с Shift

можно просто Cltr+A нажать после выделения любого значения в форме

@АЕ · 30.09.2022, 17:09

magdak0121, можно своей функцией, через split(разделитель точка) оставить 2 последних и склеить через точку.

Добавлено через 2 часа 9 минут

Visual Basic

Public Function fnDomain2(s As String)
Dim z, l: z = Split(s, ".")
l = UBound(z)
If l > 1 Then
    fnDomain2 = z(l - 1) & "." & z(l)
Else
    fnDomain2 = s
End If
End Function

@magdak0121 -16 / 0 / 0 Регистрация: 19.04.2013 Сообщений: 105
		1
	Удалить строки с двумя или более точками оставить с одной 29.09.2022, 20:33. Показов 401. Ответов 6 Метки нет (Все метки) есть список доменов и поддоменов например google.com maps.google.com ru.maps.google.com yandex.ru maps.yandex.ru ru.maps.yandex.ru как понятно две точки или больше если в строке значит это поддомен и нужно удалить такую строку, если одна точка значит домен значит оставить в итоге должно стать google.com yandex.ru нужно не просто строки с 2 строчками удалить, а с 2 и более 0

Fairuza 6004 / 3199 / 716 Регистрация: 23.11.2010 Сообщений: 10,689
	29.09.2022, 20:40	2
	Например, формулой проставить количество точек, затем фильтр или сортировка с удалением строк с более чем единица Код =ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;".";"")) 1

@Garic73 335 / 235 / 108 Регистрация: 21.09.2016 Сообщений: 892
	29.09.2022, 20:43	3
	Так Код =IFERROR(INDEX($A$1:$A$9;AGGREGATE(15;6;ROW($A$1:$A$9)/(LEN($A$1:$A$9)-LEN(SUBSTITUTE($A$1:$A$9;".";""))=1);ROW(A1)));"") 1

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,123
	30.09.2022, 09:42	4
	Вариант через поиск. Выделение с Shift Миниатюры 1

@Dinoxromniy
	30.09.2022, 10:27 #5
	Не по теме: Vlad999, это шедеврально! Браво! 0

@The_Prist 1564 / 364 / 101 Регистрация: 13.11.2008 Сообщений: 754
	30.09.2022, 14:20	6
	Сообщение от Vlad999 Выделение с Shift можно просто Cltr+A нажать после выделения любого значения в форме 0

	30.09.2022, 17:09