Перейти до основного матеріалу

Як запобігти автоматичній нумерації дублюючих заголовків стовпців у таблиці 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.

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


Інші операції (статті)

Як знайти максимальне або мінімальне абсолютне значення та зберегти вхід в Excel
Іноді вам може знадобитися знайти максимальні чи мінімальні значення їхніх абсолютних значень, але зберегти їх знак під час повернення результату, як показано на знімку екрана нижче.

Як зберегти апостроф на початку під час друку в Excel?
Як ми знаємо, коли ви хочете змінити число на текст, ви можете ввести символ апостроф спереду, як це: '123, і число буде перетворено на текст і приховає апостроф.

Як змусити відкривати як лише для читання в Excel?
Іноді потрібно, щоб інші користувачі, які відкривають ваші спільні робочі книги, були обережними, коли вони збираються редагувати спільні робочі книги, ви можете зробити підказку лише для читання, щоб попередити їх...

Як зупинити Excel від автоматичного форматування дат у CSV?
Ось файл csv, який містить дату як текстовий формат 12-may-20, але коли ви відкриваєте через excel, він автоматично зберігається як формат дати...


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

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

  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
вкладка kte 201905
  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations