Jak wstawić pusty wiersz na podstawie powyższej wartości komórki w programie Excel?
W programie Excel wstawianie pustych wierszy jest jedną z najczęściej używanych funkcji w naszej codziennej pracy. Czy jest jednak sposób na szybkie wstawienie pustych wierszy na podstawie powyższej wartości komórki, jak pokazano na poniższym zrzucie ekranu? W tym artykule omówiono metodę szybkiego wstawiania pustego wiersza na podstawie powyższych wartości komórek w programie Excel.
Wstaw wiersz na podstawie wartości powyżej
Wstaw wiersz na podstawie wartości powyżej
Jeśli chcesz wstawić pusty wiersz na podstawie powyższej liczby, możesz użyć kodu makra.
1. Włącz arkusz, którego używasz i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod do skryptu.
VBA: wstaw pusty kod na podstawie powyższej komórki
Sub Insert () 'UpdatebyExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("Wybierz zakres do użycia (pojedyncza kolumna ): "," KuTools For Excel ", xAddress,,,,, 8) Jeśli xRg to nic, to zamknij aplikację podrzędną.ScreenUpdating = False xLastRow = xRg (1) .End (xlDown) .Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Set xRg = xRg (1) For I = xLastRow To xFstRow Step -1 xNum = Cells (I, xCol) If IsNumeric (xNum) And xNum> 0 Then Rows (I + 1). (xNum) .Insert xCount = xCount + xNum End If Next xRg.Resize (xCount, 1) .Select Application.ScreenUpdating = True End Sub
3. naciśnij F5 , aby uruchomić kod, i pojawi się okno dialogowe przypominające o wybraniu listy do pracy. Zobacz zrzut ekranu:
4. kliknij OK, wstawiono puste wiersze.
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!