Как предотвратить автоматическую нумерацию заголовков «Дублирующий столбец» в таблице Excel?

В Excel при вводе заголовка «Дублирующий столбец» в таблице к нему автоматически добавляется номер — например, name, name1, name2 — и этот номер невозможно удалить, как показано на скриншоте ниже. Чтобы избежать автоматической нумерации повторяющихся заголовков в таблице, добавьте в конец каждого дублирующегося заголовка пробел. Ниже приведён код VBA, который поможет вам продублировать заголовки и автоматически добавить к ним завершающие пробелы: они будут выглядеть одинаково, но останутся уникальными.

Автоматически добавлять Пробелы в конце к заголовку

Примечание: методы, описанные в данном руководстве, протестированы в Excel 2021; в других версиях Excel возможны отличия.

1. Введите нужные заголовки в столбец, затем нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Выберите пункт Вставка > Модуль, чтобы создать новый модуль в окне Microsoft Visual Basic for Applications, затем скопируйте и вставьте в него приведённый ниже код.

VBA: продублировать и добавить Пробелы в конце

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. Нажмите кнопку Выполнить на вкладке «Лента» или клавишу F5, чтобы запустить код. В появившемся диалоговом окне выберите заголовки, которые нужно продублировать, и нажмите ОК.

4. Во втором появившемся диалоговом окне укажите желаемое количество повторений и нажмите ОК.

5. Выберите ячейку, в которую нужно вставить продублированные заголовки, и нажмите ОК.

Теперь заголовки продублированы и дополнены пробелами в конце.

6. Выделите заголовки, скопируйте их, нажав Ctrl+C, а затем вставьте обратно в нужную таблицу, нажав Ctrl+V .

Теперь вы видите, что таблица содержит заголовки «Дублирующий столбец» без автоматической нумерации.

Раскройте магию Excel с помощью KUTOOLS AI

• Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
• Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
• Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
• Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
• Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.

Расширьте возможности Excel с помощью инструментов на базе ИИ.Скачать сейчаси ощутите эффективность, как никогда раньше!

---

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Excel решает большинство ваших задач и повышает продуктивность на 80 %

• Супер строка формул (удобное редактирование многострочного текста и формул); Режим чтения (удобный просмотр и редактирование большого количества ячеек); Вставка в диапазон фильтрации…
• Объединение ячеек, строк или столбцов с сохранением данных; разделение содержимого ячеек;Объединение дублирующихся строк с суммированием или усреднением… предотвращение дублирования записей в ячейках;Сравнение диапазонов…
• Выбор дубликатов или уникальных строк; выбор пустых строк (все ячейки пустые); улучшенный и нечёткий поиск по множеству книг; случайный выбор…
• Точная копия нескольких ячеек без изменения ссылок в формулах; автоматическое создание ссылок на несколько листов; вставка маркеров, флажков и многое другое…
• Избранные и быстрая вставка формул, диапазонов, диаграмм и изображений; Защита ячеек паролем; Создание списка рассылкии отправка электронных писем…
• Извлечение текста, добавление текста, удаление символов в определённой позиции, удаление пробелов; создание и печать статистики по странице данных; преобразование между содержимым ячеек и примечаниями…
• Суперфильтр (сохранение и применение схем фильтрации к другим листам); расширенная сортировка по месяцам, неделям, дням, частоте и другим параметрам; специальный фильтр по полужирному, курсиву…
• Объединение книг и листов; объединение таблиц на основе ключевого столбца; разделение данных на несколько листов; пакетное преобразование XLS, XLSX и PDF…
• Сводная таблица: группировка по номеру недели, дню недели и многому другому… Показ разблокированных и заблокированных ячеек разными цветами; Выделение ячеек, содержащих формулы или имена…

Подробнее…Полный функционал, бесплатная пробная версия на 30 дней…Купить… 

---

Office Tab — добавляет вкладки в Office и значительно упрощает вашу работу

• Включите вкладки для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Открывайте и создавайте несколько документов во вкладках одного окна — это удобнее, чем использовать отдельные окна.
• Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Подробнее…Полный функционал, бесплатная пробная версия на 30 дней…Купить…