Як запобігти автоматичній нумерації дублюючих заголовків стовпців у таблиці Excel?

У Excel, коли ви вводите повторюваний заголовок стовпця в таблиці, до нього буде автоматично додано число як name, name1, name2, і число не можна видалити, як показано на знімку екрана нижче. Щоб запобігти автоматичній нумерації повторюваного заголовка стовпця в таблиці, ви можете додати кінцевий пробіл до дублікату заголовка. Ось код VBA, який може допомогти вам повторити заголовок і автоматично додавати пробіли в кінці, щоб вони відрізнялися, але виглядали однаково.

Автоматично додавати пробіли в кінці до заголовка

Примітка: методи, надані в цьому підручнику, протестовано в Excel 2021, у різних версіях Excel вони можуть відрізнятися.

1. Введіть заголовки, які потрібно повторити, у стовпці, а потім натисніть інший + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі щоб створити новий модуль у Microsoft Visual Basic для додатків вікно, потім скопіюйте та вставте в нього наведений нижче код.

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 щоб активувати код, у першому діалоговому вікні виберіть заголовки, які потрібно повторити. Натисніть OK.

4. У другому спливаючому діалоговому вікні введіть потрібний час повторення. Натисніть OK.

5. Виберіть комірку, у яку потрібно вивести повторювані заголовки. Натисніть OK.

Тепер заголовки повторено та додано пробіли в кінці.

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

Тепер ви бачите, що таблиця має повторювані заголовки стовпців без нумерації.

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...

Детальніше ... Повні можливості 30-денної безкоштовної пробної версії ... Придбати ... 

---

Office Tab - надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Повні можливості 30-денної безкоштовної пробної версії ... Придбати ...