Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Подскажите, как убрать в ячейках столбца номера ИНН
 
#1
01.07.2026 12:33:15
Здравствуйте.
Посоветуйте пожалуйста, как лучше поступить.
Имеется таблица в Эксель.
В одном столбце таблицы в ячейках представлены:
- в части ячеек: фамилия, имя, отчество и дата рождения (формат даты рождения: 12.02.1969);
- в другой части ячеек представлены наименование юр лица и ИНН (10 цифр, идущих подряд друг за другом)
Задача: выделить весь столбец и удалить во всех ячейках (в которых  имеется) ИНН (10 цифр).
Посоветуйте пожалуйста, как лучше поступить?
 
 
 
#2
01.07.2026 13:01:00
Цитата
fazan написал: Посоветуйте пожалуйста, как лучше поступить.
Для начала приложить файл-пример (Excel). Как есть - Как надо
ПРАВИЛА ФОРУМА, Обязательно к прочтению перед созданием новой темы
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
01.07.2026 15:45:58
Цитата
написал:
Для начала приложить файл-пример (Excel). Как есть - Как надо
Прикладываю два файла: Как есть и Как надоКак есть.xlsx (9.26 КБ)
 
 
 
#4
01.07.2026 16:21:00
А в одном файле, на разных листах, не вариант показать?
Изменено: Sanja - 01.07.2026 16:24:05
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
01.07.2026 16:25:56
как вариант, массивная
Код
=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(СИМВОЛ(10);1;ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(B1;".";"\\\");СИМВОЛ(10);"</s><s>")&"</s></t>";"//s[not(number()=.)]"));"\\\";".")
Изменено: Msi2102 - 01.07.2026 16:27:26
 
 
 
#6
01.07.2026 16:28:35
тоже вариант
Шлюхогон42
 
 
 
#7
01.07.2026 17:29:00
а через вставить/заменить никак не получится сделать?
мне просто потом в базу данных грузить эти данный из Эксель файла. боюсь что неправильно прогрузится данные, полученные в результате таких сложных формул
Изменено: fazan - 01.07.2026 17:29:58
 
 
 
#8
01.07.2026 17:45:07
Делайте в свободном столбце, потом копировать и вставить значения
 
 
 
#9
01.07.2026 18:28:23
Цитата
написал:
как вариант, массивная
добавил еще ячейку ниже. протянул формулу вниз. и вот что получилось
как сделать что бы новые ячейки данная формула отрабатывала?
 
 
 
#10
01.07.2026 18:53:16
Так вроде как отработала? Или я неправильно понял Ваши хотелки?
 
 
 
#11
01.07.2026 19:08:08
Здравствуйте.
Ещё вариант
Код
=ЕСЛИ(--ПРАВСИМВ(B1;10)<СЕГОДНЯ();B1;ЛЕВСИМВ(B1;ДЛСТР(B1)-10))
 
 
 
#12
02.07.2026 09:20:51
Цитата
написал:
Так вроде как отработала? Или я неправильно понял Ваши хотелки?
А у меня почему то так отрабатывает
 
 
 
#13
02.07.2026 15:04:32
=ЛЕВБ(B1;ДЛСТР(B1)-11*СЧЁТЕСЛИ(B1;"<>*??.??.????"))
 
 
 
#14
02.07.2026 15:19:06
Цитата
написал:
=ЛЕВБ(B1;ДЛСТР(B1)-11*СЧЁТЕСЛИ(B1;"<>*??.??.????"))
большое человеческое спасибо)
только в ячейках, где фио и дата рождения, между фио и датой рождения должен быть плавный энтер (как в оригинале). можете сделать?)
 
 
 
#15
02.07.2026 16:31:23
fazan, "Переносить текст" на ленте включите
 
 
 
#16
02.07.2026 16:45:01
Цитата
написал:
"Переносить текст" на ленте включите
спасибо. вы мне реально помогли)
 
 
 
#17
02.07.2026 18:08:33
Цитата
fazan написал:
А у меня почему то так отрабатывает
На будущее пишите версию офиса
 
 
 
#18
03.07.2026 09:27:21
Цитата
написал:
На будущее пишите версию офиса
хорошо, спасибо
 
 
 
#19
03.07.2026 14:36:08
Цитата
написал:
=ЛЕВБ(B1;ДЛСТР(B1)-11*СЧЁТЕСЛИ(B1;"<>*??.??.????"))
а можно еще код подкорректировать?
как я понял, в вашем коде, в ячейках с юрлицом код отрезает последние 10 символов
в моих таблицах в некоторых ячейках (пример в приложенном файле в пятой строке) наименование юрлица имеется, а ИНН отсутствует.
возможно сделать так, что бы в данном случае не отрезало последние 10 символов, а оставляло наименование юрлица в первозданном виде?
по сути сделать так, что бы отрезало у юрлиц только десять подряд идущих цифр
Изменено: fazan - 03.07.2026 14:36:31
 
 
 
#20
03.07.2026 16:15:06
Код
=LEFT(B1,LEN(B1)-ISNUMBER(--RIGHT(B1,10))*11)
Пришелец-прораб.
 
 
 
#21
03.07.2026 17:31:53
Цитата
написал:
1=LEFT(B1,LEN(B1)-ISNUMBER(--RIGHT(B1,10))*11)
спасибо. но у меня фаша формула отработала с удалением дат рождения  у физ лиц
 
 
 
#22
03.07.2026 20:41:27
Цитата
написал:
формула отработала с удалением дат рождения
Добрый вечер. Можно дополнить формулу AlienSx,
Код
=ЛЕВСИМВ(B1;ДЛСТР(B1)-ЕЧИСЛО(--ПРАВСИМВ(B1;10))*ЕЧИСЛО(--ПРАВСИМВ(B1;5))*11)
 
 
 
#23
04.07.2026 15:36:18
fazan, пожалуйста
как вариант:
=ЛЕВБ(B1;ДЛСТР(B1)-11*ЕЧИСЛО(-ПРАВБ(ПОДСТАВИТЬ(B1;".";);10)))
или
=ЛЕВБ(B1;ДЛСТР(B1)-11*ЕЧИСЛО(LN(ПРАВБ(B1;10)-10^8)))
 
 
 
#24
12.07.2026 20:53:01
Цитата
удалить во всех ячейках (в которых  имеется) ИНН (10 цифр).
UDF
Код
Function iResult(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .ignorecase = True
     .Pattern = "\d{10}"
   If .test(cell) Then
     iResult = .Replace(cell, "")
   Else
     iResult = cell
   End If
 End With
End Function
 
 
 
Страницы: 1
Читают тему
Наверх