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.
Inne operacje (artykuły)
Jak znaleźć maksymalną lub minimalną wartość bezwzględną i zachować logowanie w programie Excel?
Czasami możesz chcieć znaleźć maksymalne lub minimalne wartości ich wartości bezwzględnych, ale zachowaj ich znak podczas zwracania wyniku, jak pokazuje poniższy zrzut ekranu.
Jak zachować wiodący apostrof podczas pisania w programie Excel?
Jak wiemy, gdy chcesz zmienić liczbę na tekst, możesz wpisać symbol apostrofu z przodu w ten sposób: '123, a liczba zostanie przekonwertowana na tekst i ukryje apostrof.
Jak wymusić otwarcie jako tylko do odczytu w programie Excel?
Czasami chcesz, aby inni użytkownicy, którzy otwierają udostępnione skoroszyty, zachowali ostrożność, gdy zamierzają edytować udostępnione skoroszyty, możesz wyświetlić monit tylko do odczytu, aby ich ostrzec...
Jak zatrzymać program Excel przed automatycznym formatowaniem dat w CSV?
Oto plik csv, który zawiera datę w formacie tekstowym 12 maja-20, ale po otwarciu przez program Excel zostanie automatycznie zapisany w formacie daty ...
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ę...
- 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!