Как быстро уникализировать имена столбцов?

Question

[inilim2]

Как быстро встроенными инструментами подставить цифру или иначе уникализировать имена столбцов?
На фото я ручками подставил через дефис цифры, но столбцов очень много, ручками могу что-то пропустить.

Answer 1

[anoriyuriy]

Здравствуйте!
Поскольку вам нужно разовое решение, я, как формулист, посоветовал бы такой вариант:

1. Ввести временную техническую строку, для генерации заголовков, например третью (или за итогами таблицы, это не принципиально)
2. Ввести в первый столбец технической строки формулу

=ЕСЛИ(СЧЁТЕСЛИ($A$1:$G$1;A1)>1;A1&" — "&СЧЁТЕСЛИ($A$1:A1;A1);A1)

3. Протянуть ее до последнего столбца

4. Полученную строку вставить значениями вместо заголовков

Откат или задел на будущее
Для того, чтобы в будущем иметь возможность обратить данную процедуру, применяйте для отделения номера символ, который точно не будет использоваться в теле заголовка, например тире "—" (ALT+num0151 на клавиатуре).

Тогда в будущем вы сможете отсечь ранее сделанную таким способом нумерацию, с помощью функции ЛЕВСИМВ и ПОИСК вот так:
формула:

=ЕСЛИ(ЕЧИСЛО(ПОИСК("—";A3));ЛЕВСИМВ(A3;ПОИСК(" — ";A3)-1);A3)

ввод

результат протягивания

и повторить для вновь обезличенных столбцов процедуру из пунктов 1-4

Answer 2

[Олег Милованов]

Макрос напиши