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

В Excel, когато въведете дублирана заглавка на колона в таблицата, автоматично ще бъде добавено число точно като име, име1, име2 и номерът не може да бъде премахнат, както показва екранната снимка по-долу. За да предотвратите автоматичното номериране на дублиращата се заглавка на колона в таблицата, можете да добавите крайно пространство към дублиращата се заглавка. Ето код на VBA, който може да ви помогне да повторите заглавката и автоматично да добавите завършващи интервали, за да се различават, но да изглеждат по същия начин.

Автоматично добавяне на интервали в края към заглавката

Забележка: методите, предоставени в този урок, са тествани в Excel 2021, може да има някои различия в различните версии на Excel.

1. Въведете заглавките, които искате да повторите в колона, след което натиснете Друг + F11 ключове за активиране Microsoft Visual Basic за приложения прозорец.

2. кликване Поставете > Модули за създаване на нов модул в 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 за Excel решава повечето от вашите проблеми и увеличава вашата производителност с 80%

• Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
• Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
• Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
• Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
• Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
• Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
• Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
• Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
• Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка... 

---

Раздел Office - предоставя интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка...