Jak wstawić lub usunąć częściowy wiersz w programie Excel?
W programie Excel można łatwo wstawić lub usunąć cały wiersz z arkusza roboczego. Ale jak wstawić lub usunąć tylko częściowy wiersz z arkusza? Ten artykuł Ci pomoże.
Wstaw lub usuń częściowy wiersz za pomocą funkcji Wstaw / Usuń komórki
Wstaw lub usuń częściowy wiersz z kodem VBA
Wstaw lub usuń częściowy wiersz za pomocą funkcji Wstaw / Usuń komórki
Na przykład chcesz wstawić lub usunąć częściowy wiersz w wierszu 5 z trzema komórkami, wykonaj następujące czynności.
Wstaw częściowy wiersz
1. Wybierz trzy komórki w wierszu 5 (zaznaczone komórki powinny równać się wstawionym komórkom), a następnie kliknij wstawka > Wstaw komórki dla Strona główna patka. Zobacz zrzut ekranu:
2. w wstawka okno dialogowe, wybierz Przesuń komórki w prawo or Przesuń komórki w dół opcję, a następnie kliknij przycisk OK przycisk.
Następnie wstawiany jest częściowy wiersz z trzema komórkami, jak pokazano poniżej.
Usuń częściowy wiersz
1. Po wybraniu częściowego wiersza, który chcesz usunąć, kliknij Usuń> Usuń komórki dla Strona główna patka.
2. w Usuń okno dialogowe, wybierz Przesunąć komórki w lewo or Przesuń komórki w górę jak potrzebujesz, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie wybrany częściowy wiersz jest usuwany.
Wstaw lub usuń częściowy wiersz z kodem VBA
Możesz również zastosować następujące kody VBA, aby wstawić lub usunąć częściowy wiersz w programie Excel.
1. Wybierz dowolną komórkę w określonym wierszu, do której chcesz wstawić częściowe wiersze, a następnie naciśnij inny + F11 otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. A następnie skopiuj i wklej poniższy kod VBA do pliku Code okno.
Kod VBA: wstaw częściowy wiersz w programie Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End SubNote: W kodzie VBA liczba 1 oznacza, że częściowy wiersz zostanie wstawiony z pierwszej kolumny, a liczba 3 oznacza, że wstawi trzy komórki między kolumny. Możesz je zmieniać w zależności od potrzeb.
3. wciśnij F5 klucz do uruchomienia kodu, a następnie a Kutools dla programu Excel pojawi się okno dialogowe, wprowadź liczbę wymaganych wierszy, a następnie kliknij OK przycisk.
Jeśli wpiszesz 3 w polu, po kliknięciu OK przycisk, trzy częściowe wiersze z trzema kolumnami zostaną wstawione w określonej pozycji arkusza.
Aby usunąć częściowy wiersz, możesz uruchomić poniższy kod VBA.
Kod VBA: Usuń częściowy wiersz w programie Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End SubPo uruchomieniu kodu istnieje również plik Kutools dla programu Excel pojawi się okno dialogowe przypominające o liczbie częściowych wierszy, które chcesz usunąć, wprowadź liczbę i kliknij OK przycisk. Następnie określone częściowe wiersze są natychmiast usuwane.
Najlepsze narzędzia biurowe
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!
