Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako vstaviti vrstico na podlagi vrednosti celice v Excelu?

doc-insert-row-based-on-value-1
Recimo, da imate nabor podatkov in želite samodejno vstaviti prazne vrstice nad ali pod določeno vrednost v Excelu, na primer samodejno vstavite vrstice pod ničlo, kot je prikazano spodaj. V Excelu ni mogoče neposredno rešiti te naloge, lahko pa vam predstavim makro kodo, da samodejno vstavite vrstice na podlagi določene vrednosti v Excelu.
Vstavite vrstico spodaj glede na vrednost celice z VBA

Vnesite vrstico zgoraj na podlagi vrednosti celice s programom Kutools for Excel dobra ideja3

Izberite Celice / Vrstice / Stolpci z enim ali dvema meriloma v Excelu

Izbrane posebne celice Kutools za Excel lahko hitro izberejo vse celice ali vrstice ali stolpce v obsegu na podlagi enega ali dveh meril. Kliknite za brezplačni preskus 60 dni!
doc izberite specifično celico 1
Kutools za Excel: z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

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

Formula Nikoli več ni treba skrbeti glede dolgih formul v Excelu! Kutools za Excel's Samodejno besedilo lahko dodaja vse formule v skupino
kot auto besedilo in osvobodite možgane! Kliknite tukaj, če želite izvedeti samodejno besedilo Kliknite tukaj, da dobite brezplačno preskusno različico

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

2. klik Vstavi > Moduli, nato prilepite pod kodo VBA na popping Moduli okno.

VBA: Vstavite vrstico spodaj glede na vrednost 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 ključ ali Run gumb, se odpre pogovorno okno in izberite stolpec nič. Prikaz slike:
doc-insert-row-based-on-value-2

4. klik OK. Nato bodo prazne vrstice vstavljene pod ničelno vrednost.
doc-insert-row-based-on-value-3

Nasvet:

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

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

VBA: Vstavite vrstico nad vrednost nič:

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

doc-insert-row-based-on-value-4


Če niste seznanjeni z VBA, lahko poskusite Kutools za Excel's Izberite Specific Cells uporabnost in nato vstavite vrstice zgoraj.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo.

Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesete Kutools za Excel zdaj!)

1. Izberite seznam, iz katerega želite ugotoviti določene celice, in kliknite Kutools > Izberite > Izberite Specific Cells. Prikaz slike:
doc vstavi vrstico na podlagi vrednosti 9

2. V pogovornem oknu popping, preverite Celotna vrstica in izberite Pojdi na enako iz Poseben tip in vnesite vrednost, ki jo želite najti v pravem besedilnem polju. Prikaz slike:
doc vstavi vrstico na podlagi vrednosti 6

3. klik Ok, in se odpre pogovorno okno, ki vas opomni na število izbranih vrstic, ga preprosto zaprete.

4. Postavite kurzor na eno izbrano vrstico in z desno miškino tipko izberite Vstavi iz kontekstnega menija. Prikaz slike:
doc vstavi vrstico na podlagi vrednosti 7

Zdaj so vrstice vstavljene zgoraj na podlagi določene vrednosti.
doc vstavi vrstico na podlagi vrednosti 8


Relativni členi:

Brskanje z zavihki in urejanje več delovnih skupin Excel / Word dokumentov kot Firefox, Chrome, Internet Raziščite 10!

Morda ste pozabljeni, da si ogledate več spletnih strani v Firefoxu / Chrome / IE in preklopite med njimi tako, da preprosto kliknete ustrezne jezičke. Tu tabla Office podpira podobno obdelavo, ki vam omogoča, da brskate po več Excelovih delovnih zvezkih ali Wordovih dokumentih v enem oknu programa Excel ali oknu Worda in preprosto preklapljate med njimi tako, da kliknete njihove zavihke. Kliknite brezplačno 45 dnevno preizkusno različico zavihka Office!

od excel


Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    safa · 29 days ago
    Hello, this is very helpful. What if I wanted to add two lines below and I wanted to more values. For instance, I want to add two lines after value 26/04/2019 and then two lines after 03/04/2019, and list goes on. How do I keep adding to the vba? Sorry im still a beginner. Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Gina · 6 months ago
    Hi, Thanks for this, however I have another scenario where I need to insert a cingle cell under the value that is not zero. Appreciate any suggestion.
  • To post as a guest, your comment is unpublished.
    Louis · 9 months ago
    Hi i am trying to use this code to enter a row when a the first 4 digits in a cell changes (if thats even possible)

    for example,
    2222A
    2222B
    2223K


    the line will be inserted after 2222B as the 3rd number is a 3 and not a 2

    Thanks guys!!
  • To post as a guest, your comment is unpublished.
    Hi · 1 years ago
    hi I just wanna ask how to add row if the codition is that add row should be done when a cell has a data already (It is for a excel workbook with a lot of sheets :) Thanks!
    • To post as a guest, your comment is unpublished.
      Sunny · 11 months ago
      maybe this vba code can help you. It will add rows if above row is not empty

      Sub helping()
      Dim count As Long
      For count = ActiveSheet.UsedRange.Rows.count To 1 Step -1
      If Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
      Next count
      End Sub
  • To post as a guest, your comment is unpublished.
    ermias · 1 years ago
    Here is my question and it is a very difficult one i guess.. is there a vba code that add a new row below a filtered column and copy just the first three cells into the added new row and continue doing so until the user stops hitting "enter" and unfilter the filtered cells?