Добрый день, нужна помощь в задачке Задача состоит в следующем: заменить фамилии в исходных ячейках случайными из списка (они должны перемешаться, но должны быть из того же столбца Азаренко-Акименко, Абдрашева-Абдуллаев и т.д).
Пример Исходные данные: Абаев, купите пылесос Измененные: Абдеев (случайная фамилия из списка фамилий заканчивающихся на "ев" "ева"), купите пылесос В ту же ячейку, где и была
Исходные данные находятся на всём листе (прикрепляю файл) Список фамилий (справочник) находится в отдельной книге на всём листе (ActiveSheet.UsedRange) (прикрепляю файл) 1. В строке может быть несколько фамилий, несколько имён и соответственно отчеств 2. Перед ФИО нужно поставить обязательный пробел, исключая случаи, когда ФИО стоит в начале строки 3. В конце ФИО могут быть окончания по падежам. Поэтому нужно, чтобы эти ФИО тоже заменялось. Выдержку из справочника прикрепляю. Предположу, что нужно не учитывать последнюю букву и делать до конца слова, или в самом справочнике убрать 1-2 буквы в зависимости от столбца, чтобы не было неопределенности. Таким образом отчества (так как это производные от имени) тоже будут затрагиваться и меняться 4. После каждой буквы измененного ФИО сделать #. То есть должно быть: И#в#а#н#о#в# И#в#а#н# И#в#а#н#о#в#и#ч#. Эту часть кода в виде комментария, так как потом не понадобится
Добрый день, нужна помощь в задачке Задача состоит в следующем: заменить фамилии в исходных ячейках случайными из списка (они должны перемешаться, но должны быть из того же столбца Азаренко-Акименко, Абдрашева-Абдуллаев и т.д).
Пример Исходные данные: Абаев, купите пылесос Измененные: Абдеев (случайная фамилия из списка фамилий заканчивающихся на "ев" "ева"), купите пылесос В ту же ячейку, где и была
Исходные данные находятся на всём листе (прикрепляю файл) Список фамилий (справочник) находится в отдельной книге на всём листе (ActiveSheet.UsedRange) (прикрепляю файл) 1. В строке может быть несколько фамилий, несколько имён и соответственно отчеств 2. Перед ФИО нужно поставить обязательный пробел, исключая случаи, когда ФИО стоит в начале строки 3. В конце ФИО могут быть окончания по падежам. Поэтому нужно, чтобы эти ФИО тоже заменялось. Выдержку из справочника прикрепляю. Предположу, что нужно не учитывать последнюю букву и делать до конца слова, или в самом справочнике убрать 1-2 буквы в зависимости от столбца, чтобы не было неопределенности. Таким образом отчества (так как это производные от имени) тоже будут затрагиваться и меняться 4. После каждой буквы измененного ФИО сделать #. То есть должно быть: И#в#а#н#о#в# И#в#а#н# И#в#а#н#о#в#и#ч#. Эту часть кода в виде комментария, так как потом не понадобитсяartemgurin19982703
' Фразу разбить по пробелам, ' для слов по таблице фамилий, отсортированных по колву букв, ' проставить колво найденных длин фамилий. ' Слово Найдено символов ' Ивановкова 9 ' Иванова 6 ' Иванов 6 ' По отброшенному окончанию восстановить именительный падеж фамилии. ' а - "", ой - а, ому - ий ... ' из списка фамилий отобрать с нужным окончанием, ' заменить окончание на отброшенное, ' заменить фамилию.
Привет!
Подходящее применение конечным автоматам.
' Фразу разбить по пробелам, ' для слов по таблице фамилий, отсортированных по колву букв, ' проставить колво найденных длин фамилий. ' Слово Найдено символов ' Ивановкова 9 ' Иванова 6 ' Иванов 6 ' По отброшенному окончанию восстановить именительный падеж фамилии. ' а - "", ой - а, ому - ий ... ' из списка фамилий отобрать с нужным окончанием, ' заменить окончание на отброшенное, ' заменить фамилию.InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
