Przejdź do głównej zawartości

Jak wstawić ten sam tekst w co drugim wierszu w programie Excel?

Autor: Silvia Ostatnia modyfikacja: 2024-11-06

W tym artykule pokażemy Ci, jak wstawić ten sam tekst w co drugim wierszu w programie Excel. Czytaj dalej, aby uzyskać więcej szczegółów.

Wstaw ten sam tekst w każdym wierszu z kodem VBA
Wstaw ten sam tekst w co drugim wierszu za pomocą Kutools for Excel


Wstaw ten sam tekst w każdym wierszu z kodem VBA

Załóżmy, że chcesz wstawić tekst „Nazwa”, „Dane” i „Wynik” w co drugim wierszu w określonym zakresie, jak pokazano na zrzucie ekranu poniżej. Wypróbuj poniższy kod VBA.

Zrzut ekranu przykładowych danych umożliwiający wstawienie określonego tekstu w co drugim wierszu

1. W arkuszu naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

2. kliknij wstawka > Moduł. Zobacz zrzut ekranu:

Zrzut ekranu opcji Wstaw moduł w edytorze VBA

3. Skopiuj i wklej poniższy kod VBA do edytora kodu.

Kod VBA: wstaw ten sam tekst w każdym wierszu w programie Excel

Sub inserttexteveryonerow()
	Dim Last As Integer
	Dim emptyRow As Integer
	Last = Range("A" & Rows.Count).End(xlUp).Row
	For emptyRow = Last To 2 Step - 1
		If Not Cells(emptyRow, 1).Value = "" Then
			Rows(emptyRow).Resize(1).Insert
			Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
		End If
	Next emptyRow
End Sub

Uwagi: W powyższym kodzie:

1. Twoje dane powinny zaczynać się od pierwszego wiersza arkusza.
2. Zmień tekst „Nazwa”, „Dane” i „Ocena” na tekst, którego potrzebujesz.
3. Litery A i C wskazują zakres komórek, w którym chcesz wstawić określony tekst.
4. wciśnij F5 klucz do uruchomienia kodu. Możesz zobaczyć, że określone teksty są dodawane w każdym wierszu arkusza.

Wstaw ten sam tekst w co drugim wierszu za pomocą Kutools for Excel

Za pomocą powyższego kodu możesz po prostu wstawić tekst w każdym wierszu. Co powiesz na wstawianie tekstu w każdym wierszu n w programie Excel? W tej sekcji pokażemy Ci Wstaw wiersze tytułów użyteczność Kutools dla programu ExcelDzięki temu narzędziu wstawianie tekstu w co n-tym wierszu staje się łatwe.

Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji usprawniających złożone zadania, zwiększających kreatywność i wydajność. Zintegruj z możliwościami AI, Kutools precyzyjnie automatyzuje zadania, dzięki czemu zarządzanie danymi jest łatwe. Szczegółowe informacje o Kutools dla Excela...         Bezpłatny okres próbny...

1. kliknij Kutools > wstawka > Wstaw wiersze tytułów aby włączyć to narzędzie.

Zrzut ekranu opcji Wstaw wiersze tytułów w karcie Kutools na wstążce

2. w Wstaw wiersze tytułów w oknie dialogowym, musisz:

1). Wybierz zakres tekstów, które chcesz wstawić do każdego n wiersza w Zakres tytułów pudełko;
2). Wybierz zakres, do którego chcesz wstawić teksty w pliku Wstaw zakres pudełko;
3). Określ numer wiersza interwału w Wiersze interwałowe pudełko. Jeśli chcesz wstawić tekst w każdym wierszu, wprowadź 1 w polu, a dla każdego n wiersza wprowadź n w polu;
4). Kliknij OK przycisk.

Zrzut ekranu okna dialogowego Wstaw wiersze tytułów

Teraz określony tekst jest wstawiany w każdym n wierszu w wybranym zakresie.

Kutools dla programu Excel - Ulepsz Excela dzięki ponad 300 niezbędnym narzędziom. Ciesz się stale darmowymi funkcjami AI! Zdobądź To Teraz

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej
Używaj Kutools w swoim preferowanym języku – dostępny jest angielski, hiszpański, niemiecki, francuski, chiński i ponad 40 innych!

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...


Karta Office wprowadza 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!