Kako samodejno vstaviti vrstico na podlagi vrednosti celice v Excelu?

Denimo, da imate nabor podatkov in želite samodejno vstaviti prazne vrstice nad ali pod določeno vrednost v Excelu, na primer samodejno vstaviti vrstice pod ničlo, kot je prikazano spodaj. V Excelu te naloge ne more rešiti neposreden način, lahko pa vam predstavim makro kodo za samodejno vstavljanje vrstic na podlagi določene vrednosti v Excelu.
Spodaj vstavite vrstico na podlagi vrednosti celice z VBA

Zgornjo vrstico vstavite na podlagi vrednosti celice s programom Kutools za Excel

Spodaj vstavite vrstico na podlagi vrednosti celice z VBA

Če želite vstaviti vrstico na podlagi vrednosti celice z zagonom VBA, naredite spodnja navodila:

1. Pritisnite Alt + F11 tipke hkrati in a Microsoft Visual Basic za aplikacije se odpre okno.

2. klik Vstavi > Moduli, nato prilepite pod kodo VBA v pojavno okno Moduli okno.

VBA: Spodaj vstavite vrstico na podlagi vrednosti celice.

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. klik F5 tipko ali Run gumb se odpre pogovorno okno in izberite stolpec, ki vsebuje nič. Oglejte si posnetek zaslona:

4. klik OK. Nato bodo prazne vrstice vstavljene pod ničlo.

Nasvet:

1. Če želite vstaviti vrstice na podlagi druge vrednosti, lahko to spremenite 0 na katero koli vrednost, ki jo želite v VBA: Če je Rng.Value = "0", potem.

2. Če želite vstaviti vrstice nad ničlo ali drugo vrednost, lahko uporabite spodnjo kodo vba.

VBA: Vstavi vrstico nad ničlo:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

Zgornjo vrstico vstavite na podlagi vrednosti celice s programom Kutools za Excel

Če VBA ne poznate, lahko poskusite Kutools za Excel's Izberite Specific Cells in nato vstavite vrstice zgoraj.

Po namestitvi Kutools za Excel, naredite spodaj:（Brezplačno prenesite Kutools za Excel zdaj!)

1. Izberite seznam, s katerega želite izvedeti določene celice, in kliknite Kutools > Izberite > Izberite Specific Cells. Oglejte si posnetek zaslona:

2. V pojavnem pogovornem oknu potrdite Cela vrstica in nato izberite enako iz Posebna vrsta in nato v desno polje z besedilom vnesite vrednost, ki jo želite najti. Oglejte si posnetek zaslona:

3. klik Okin odpre se pogovorno okno, ki vas opomni na število izbranih vrstic, samo ga zaprite.

4. Postavite kurzor v eno izbrano vrstico in z desno miškino tipko izberite Vstavi iz kontekstnega menija. Oglejte si posnetek zaslona:

Zdaj so vrstice vstavljene zgoraj na podlagi določene vrednosti.

  Vstavite vrstice zgoraj glede na vrednost celice

Relativni članki:

• V Excel vstavite prazne vrstice

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...