Jak wstawić pusty wiersz po określonym tekście w programie Excel?
Jeśli chcesz wstawić puste wiersze po określonym tekście, jak pokazano na zrzucie ekranu, jak sobie z tym poradzić szybko i łatwo bez ręcznego wstawiania ich jeden po drugim?
Wstaw puste wiersze po określonym tekście z kodem VBA
Wstaw puste wiersze po określonym tekście z kodem VBA
Możesz zastosować poniższy kod VBA, aby wstawić puste wiersze po określonym tekście, którego potrzebujesz, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
Kod VBA: wstaw puste wiersze po określonym tekście
Sub Insertrowbelow()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
End If
Next
End Sub
Note: W powyższym kodzie możesz zmienić wartość tekstową „W toku”Na dowolne inne wartości, które wybrałeś ze skryptu Jeśli InStr (1, xRng.Cells (i, 1) .Value, „W toku”)> 0 Wtedy.
3. Następnie naciśnij F5 Aby uruchomić ten kod, w wyskakującym oknie dialogowym wybierz dane kolumny zawierające określony tekst, którego chcesz użyć, zobacz zrzut ekranu:
4. A następnie kliknij OK przycisk, a puste wiersze zostały wstawione po określonym tekście, który podałeś, patrz zrzut ekranu:
Więcej względnych artykułów wstawiania wierszy:
- Kopiuj i wstaw wiersz wiele razy lub powiel wiersz X razy
- Czy w swojej codziennej pracy próbowałeś kiedyś skopiować wiersz lub każdy wiersz, a następnie wstawić wiele razy poniżej bieżącego wiersza danych w arkuszu? Na przykład mam zakres komórek, teraz chcę skopiować każdy wiersz i wkleić je 3 razy do następnego wiersza, jak pokazano na zrzucie ekranu. Jak mógłbyś sobie poradzić z tą pracą w Excelu?
- Wstaw puste wiersze po zmianie wartości w programie Excel
- Przypuśćmy, że masz zakres danych, a teraz chcesz wstawić puste wiersze między danymi po zmianie wartości, abyś mógł oddzielić sekwencyjne te same wartości w jednej kolumnie, jak pokazano na poniższych zrzutach ekranu. W tym artykule omówię kilka sztuczek, które pomogą Ci rozwiązać ten problem.
- Szybko wstawiaj wiele wierszy lub kolumn do Arkuszy Google
- W tym artykule przedstawię łatwy sposób wstawiania wielu pustych wierszy lub kolumn w arkuszu Google.
- Wstaw pusty wiersz powyżej określonego tekstu w programie Excel
- Czy podczas pracy nad arkuszem roboczym próbowałeś kiedyś wstawić pusty wiersz nad określonym tekstem w kolumnie? Na przykład w kolumnie A jest kilka nazw, teraz chcę wstawić puste wiersze nad komórkami, które zawierają nazwę „Mike”, jak pokazano na lewym zrzucie ekranu, być może nie ma bezpośredniego sposobu rozwiązania tego zadania w programie Excel . W tym artykule omówię kilka dobrych sztuczek dotyczących radzenia sobie z tą pracą w programie Excel.
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!