Jak zapobiec automatycznemu numerowaniu w zduplikowanym nagłówku kolumny w tabeli Excel?

W programie Excel po wpisaniu zduplikowanego nagłówka kolumny w tabeli zostanie automatycznie dodany numer, podobnie jak imię i nazwisko, imię1, imię2, a numeru nie można usunąć, jak pokazuje poniższy zrzut ekranu. Aby zapobiec automatycznej numeracji w zduplikowanym nagłówku kolumny w tabeli, możesz dodać końcową spację do zduplikowanego nagłówka. Oto kod VBA, który może pomóc w powtórzeniu nagłówka i automatycznym dodawaniu spacji końcowych, aby były różne, ale wyglądają tak samo.

Automatycznie dodawaj końcowe spacje do nagłówka

Uwaga: metody przedstawione w tym samouczku są testowane w programie Excel 2021, mogą być różne w różnych wersjach programu Excel.

1. Wpisz nagłówki, które chcesz powtórzyć w kolumnie, a następnie naciśnij inny + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł stworzyć nowy moduł w Microsoft Visual Basic for Applications okno, a następnie skopiuj i wklej do niego poniższy kod.

VBA: Powtórz i dodaj końcowe spacje

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. kliknij run  na wstążce lub naciśnij F5 , aby aktywować kod, w pierwszym oknie dialogowym wybierz nagłówki, które chcesz powtórzyć. Kliknij OK.

4. W drugim pojawiającym się oknie dialogowym wpisz żądane czasy powtarzania. Kliknij OK.

5. Wybierz komórkę, do której chcesz wyprowadzić powtarzające się nagłówki. Kliknij OK.

Teraz nagłówki zostały powtórzone i dodane z końcowymi spacjami.

6. Wybierz nagłówki i skopiuj je, naciskając Ctrl + C, i wklej je z powrotem do tabeli, której potrzebujesz, naciskając Ctrl + V.

Teraz możesz zobaczyć, że tabela ma zduplikowane nagłówki kolumn bez numeracji.

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...

Czytaj więcej... Pełne funkcje 30-dniowa bezpłatna wersja próbna... Zakup... 

---

Karta Office - przenosi interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Czytaj więcej... Pełne funkcje 30-dniowa bezpłatna wersja próbna... Zakup...