Добрый день,
Задача состоит в следующем: заменить фамилии в исходных ячейках случайными из списка (они должны перемещаться, но должны быть из того же столбца Янко-Тонко, Утев-Чаев и т.д).
Исходные данные в столбцах "A", "G", но нужно сделать так, чтобы заменялись фамилии в любых ячейках, по всему листу.
Список фамилий (справочник) находится в столбцах "C-F", но нужно, чтобы код ссылался на отдельный файл, где расположены эти фамилии
Код не получилось вставить с телефона, но если удастся, то посмотрите, может там удастся что-то исправить.
У меня есть ошибки и недоадаптации:
Если несколько фамилий, то заменяет только одну
Не получается сделать для всего листа. Пробовал AciveSheet.UsedRange - не вышло
Не получается обратиться к книге в которой есть фамилии (сейчас они в столбцах "С-F"

Здравствуйте.
Первый код (MMM) должен в ячейках столбца "А" убирать лишние символы в цифрах, но выводится ошибка. Может кто-то разобраться? Прилагаю файл.
Второй код должен ссылаться на переменную, которая была в первом коде. Данный код заменяет цифры звёздами.
Общий результат должен быть в столбце "С"