Note: The other languages of the website are Google-translated. Back to English

Kako samodejno vstaviti vrstico na podlagi vrednosti celice v Excelu?

doc-insert-row-based-on-value-1
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 dobra ideja3

Č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:
doc-insert-row-based-on-value-2

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

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

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


Če VBA ne poznate, lahko poskusite Kutools za Excel's Izberite Specific Cells 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 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:
doc vstavi vrstico na podlagi vrednosti 9

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:
doc vstavi vrstico na podlagi vrednosti 6

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:
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 članki:


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.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (43)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Pod spodnjo celico želim prilepiti določeno vsebino. Kako to narediti? Namesto prazne vrstice želim vstaviti vrednost v nekaj stolpcev.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, želim vstaviti več vrstic na podlagi vrednosti npr.: želim vstaviti 1 prazno vrstico pod celico z vrednostjo 2, 2 vrstici pod celico z vrednostjo 3, 3 vrstice pod celico z vrednostjo 4 in tako naprej Ali lahko prosim pomagajte mi s tem?
Ta komentar je moderator na spletnem mestu minimiziral
Ste kdaj dobili odgovor na to? Poskušam narediti isto.

Imejte seznam zaposlenih, ki imajo # tednov dopusta. Želim vstaviti vrstico za vsak teden. To bo 1, 2 ali 3 vrstice, odvisno od tega, koliko časa so zaslužili. #s 1 2 3 so že v moji preglednici.
Ta komentar je moderator na spletnem mestu minimiziral
Želim vstaviti vrstice na podlagi štetja z uporabo vrednosti celice v eni preglednici in vstavljanjem vrstic v drugo preglednico.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za vaše sporočilo. Toda ali lahko svoje vprašanje opišete z več podrobnostmi? Katere vrstice želite vstaviti? Prazen? In kam želite vstaviti na listu? Če lahko, mi daj posnetek zaslona. Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Ljubim te. Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
To je bilo osupljivo!!. Hvala, stari.
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko vstavim več kot eno vrstico?
Ta komentar je moderator na spletnem mestu minimiziral
Lahko poskusite s tem VBA

Podprazna vrstica()
'Posodobitev do 20150203
Dim Rng kot domet
Dim WorkRng As Range
Dim xInsertNum As Long
' Ob napaki Nadaljuj naprej
xTitleId = "Kutools za Excel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Če WorkRng ni nič, zapustite Sub
xInsertNum = Application.InputBox("Število praznih vrstic, ki jih želite vstaviti ", xTitleId, Type:=1)
Če je xInsertNum = False, potem
MsgBox " Število praznih vrstic, ki jih želite vstaviti ", vbInformation, xTitleId
Exit Sub
Konec Če
Nastavi WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Napačno
Za xRowIndex = xLastRow do 1 koraka -1
Nastavi Rng = WorkRng.Range("A" & xRowIndex)
Če je Rng.Value = "0", potem
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
Konec Če
Naslednji
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
če želite spodaj vstaviti prazne vrstice, poskusite to

Podprazna vrstica()
'Posodobitev do 20150203
Dim Rng kot domet
Dim WorkRng As Range
Dim xInsertNum As Long
' Ob napaki Nadaljuj naprej
xTitleId = "Kutools za Excel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Če WorkRng ni nič, zapustite Sub
xInsertNum = Application.InputBox("Število praznih vrstic, ki jih želite vstaviti", xTitleId, Type:=1)
Če je xInsertNum = False, potem
MsgBox " Število praznih vrstic, ki jih želite vstaviti ", vbInformation, xTitleId
Exit Sub
Konec Če
Nastavi WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Napačno
Za xRowIndex = xLastRow do 1 koraka -1
Nastavi Rng = WorkRng.Range("A" & xRowIndex)
Če je Rng.Value = "0", potem
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
Konec Če
Naslednji
Application.ScreenUpdating = Res
End Sub

Spodnji je za vstavljanje vrstic zgoraj.
Ta komentar je moderator na spletnem mestu minimiziral
HI Sunny, ta makro mi popolnoma deluje; Pravkar sem moral spremeniti količino vrstic na 30 in spremeniti 0 v besedilo: "Končno stanje". Zdaj pa želim kopirati in prilepiti izbor celic, ki je visok 30 vrstic, v 30 praznih vrstic, ki jih je pravkar vstavil ta makro. Ali lahko predlagate nov makro (ali spremembo tega), da kopirate in prilepite obseg v vsako 30 praznih vrstic. Obseg za kopiranje in lepljenje sem poimenoval "predloga".
Ta komentar je moderator na spletnem mestu minimiziral
Potrebujem veliko pomoč pri tej temi. Imam 2 stolpca, v 1. imam svoj podatkovni čas 01/01/2016 05:00:00, dneve/mesece/leto ura/minute/sekunde in v 2. stolpcu ustrezne podatke, povezane s časom.

Moja težava je, da želim dodati čas podatkov med vrsticami, ker imam dneve presledka. 1. vrstica je 01, 01. vrsta pa ima na primer 2016, tako da imam 2 dni. in ta koda mi ne deluje.

Veselim se povratnih informacij, prosim! Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Lahko poskusite s tem VBA

Sub InsertValueBetween()
'Posodobitev 20130825
Dim WorkRng As Range
Dim Rng kot domet
Dim outArr Kot različica
Dim dic kot varianta
Nastavi dic = CreateObject("Scripting.Dictionary")
'Ob napaki Nadaljuj naprej
xTitleId = "KutoolsforExcel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Vrednost
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 do intervala + 1, 1 do 2)
Za vsak Rng v WorkRng
dic(Rng.Vrednost) = Rng.Offset(0, 1).Vrednost
Naslednji
Za i = 0 To interval
outArr(i + 1, 1) = i + num1
Če dic.Exists(i + num1) Potem
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
Konec Če
Naslednji
Z WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Vrednost = outArr
.Izberite
Končaj s
End Sub


Ali če imate Kutools za Excel, lahko poskusite s to funkcijo:
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, poskusil sem oboje, prvega, saj imam približno 1 vrstic podatkov, to naredim za vseh 500 vrstic in ne naredi ničesar, mislim, da ima morda omejitev glede vrstic za uporabo in ko na primer izberem samo prvih 500 vrstic, ne ustvari manjkajočih vrstic, ampak nadomesti vrstice za manjkajoče podatke.

Druga težava, ki jo imam, je, da imajo moji časovni podatki tudi dan/mesec/leto HH: MM: SS
Ta komentar je moderator na spletnem mestu minimiziral
Od 2 do 3 ustvari manjkajoče podatke, ki jih želim v redu, vendar je vrednost 03/01/2016 odpravljena in nekaj časovnih podatkov je odpravljenih nekaj, česar tudi jaz ne želim
Ta komentar je moderator na spletnem mestu minimiziral
Koda VBA vam žal ni pomagala, ne najdem metode, ki bi lahko delovala za format datuma in časa. Če končno najdete rešitev, mi lahko sporočite? Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni še enkrat, Sunny, nekaj sem uspel pri urejanju kode za to (spreminjam vrstico num1 v A2 in With WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2) ):


Sub InsertValueBetween()
'Posodobitev 20130825
Dim WorkRng As Range
Dim Rng kot domet
Dim outArr Kot različica
Dim dic kot varianta
Nastavi dic = CreateObject("Scripting.Dictionary")
'Ob napaki Nadaljuj naprej
xTitleId = "KutoolsforExcel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A2").Vrednost
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 do intervala + 1, 1 do 2)
Za vsak Rng v WorkRng
dic(Rng.Vrednost) = Rng.Offset(0, 1).Vrednost
Naslednji
Za i = 0 To interval
outArr(i + 1, 1) = i + num1
Če dic.Exists(i + num1) Potem
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
Konec Če
Naslednji
Z WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Vrednost = outArr
.Izberite
Končaj s
End Sub



Pokažem vam grafe, ne deluje 100%, ker ne ustvari časa od A1 do A2
Ta komentar je moderator na spletnem mestu minimiziral
Tukaj je moje vprašanje in mislim, da je zelo težko.. ali obstaja koda vba, ki doda novo vrstico pod filtrirani stolpec in kopira samo prve tri celice v dodano novo vrstico in nadaljuje s tem, dokler uporabnik ne preneha pritiskati "vnesti" in odstraniti filtrirane celice?
Ta komentar je moderator na spletnem mestu minimiziral
Vaše vprašanje je nekoliko težko in zapleteno, vprašanje lahko postavite na naš forum, morda vam bo kdo odgovoril. https://www.extendoffice.com/forum.html
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, rad bi vprašal, kako dodati vrstico, če je koda ta, da je treba dodati vrstico, ko celica že ima podatke (je za Excelov delovni zvezek z veliko listi :) Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
morda ti lahko ta koda vba pomaga. Dodala bo vrstice, če zgornja vrstica ni prazna

Pod pomoč ()
Dim šteje kot dolgo
Za count = ActiveSheet.UsedRange.Rows.count To 1 Step -1
Če je Information.IsEmpty(Cells(count, 1)) = False, potem vrstice (število + 1).Insert
Naslednje štetje
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, poskušam uporabiti to kodo za vnos vrstice, ko se spremenijo prve 4 števke v celici (če je to sploh mogoče)

na primer,
2222A
2222B
2223K


vrstica bo vstavljena za 2222B, saj je 3. številka 3 in ne 2

Hvala fantje!!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, hvala za to, vendar imam še en scenarij, kjer moram vstaviti cingle celico pod vrednost, ki ni nič. Cenim vsak predlog.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Gina, samo najdem kodo za vstavljanje prazne vrstice nad celico, ki ni prazna, morda jo lahko kdo prilagodi vašim potrebam.

Podvstavi_vrstice()
Dim LR As Long, r As Long

Application.ScreenUpdating = Napačno
LR = Obseg("A" & Število vrstic).Konec(xlUp).Vrstica
Za r = LR do 1 koraka -1
Če je Len(Obseg("A" & r).Value) > 0 Potem
Vrstice(r).Vstavi
Konec Če
Naslednji r
Application.ScreenUpdating = Res
End Sub

prihajati https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, to je zelo koristno. Kaj če bi želel dodati dve vrstici spodaj in bi želel več vrednosti. Na primer, želim dodati dve vrstici po vrednosti 26/04/2019 in nato dve vrstici po 03/04/2019 in seznam se nadaljuje. Kako nadaljujem z dodajanjem v vba? Žal sem še začetnik. Hvala vnaprej.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Safa, morda lahko poskusiš Kutoolsov pripomoček za vstavljanje praznih vrstic/stolpcev.
Ta komentar je moderator na spletnem mestu minimiziral
Podprazna vrstica()
'Posodobitev do 20150203
Dim Rng kot domet
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavite WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Nastavi WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Napačno
Za xRowIndex = xLastRow do 1 koraka - 1
Nastavi Rng = WorkRng.Range("A" & xRowIndex)
Če je Rng.Value = "0", potem
Rng.EntireRow.Insert Shift: = xlDown
Konec Če
Naslednji
Application.ScreenUpdating = Res
End Sub


To potrebujem, da deluje vsakič, ko nekaj vstavim v celico, in tudi z več spremenljivkami. Mislim, da če v celico dam 2, jo potrebujem, da vstavim 2 vrstici in ne samo 1.
Ta komentar je moderator na spletnem mestu minimiziral
Potrebujem makro za dodajanje vrstic na podlagi stolpca količine, kjer, če je količina večja od 1, vstavi število vrstic -1. Če je količina 5, vstavi 4 vrstice pod njo in izpolni podatke ter spremeni izklicano količino iz 5 v 1 v vsaki vrstici. Preskoči vse 1.
Ta komentar je moderator na spletnem mestu minimiziral
Povejte mi kodo, kamor želim dodati določeno število vrstic na podlagi vrednosti celice. na primer, če celica vsebuje številko 18, je treba samodejno dodati 18 vrstic, kamor želim, in preostali del tabele/celice naj se premakne navzdol.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala za to, res izjemen prihranek časa. Ali bi bilo mogoče dodati nekaj kode, ki mi omogoča, da v novo vrstico vstavim nekaj besedila. Na primer vstavljam nove vrstice na podlagi ciljne vrednosti 'x', nato pa želim dodati besedilno vrednost 'y' v celico pod ciljno vrednostjo 'x'. Je to možno?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo. Makro mi deluje, toda ali obstaja način, da so obseg/parametri vedno nastavljeni na stolpec J, ne da bi se polje za vnos sploh pojavilo? Rad bi, da preskočite korak vnosnega polja, ki prihaja. Prav tako sem se prepričal, da je neposredno pred tem makrom zadnja vrstica mojega prejšnjega makra Range("J:J"). Izberite, da se prepričate, da je celoten stolpec J že izbran.
To sem do sedaj uporabljal.

Dim Rng kot domet
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Kliknite V redu za nadaljevanje"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Nastavi WorkRng = WorkRng.Columns(1)
SendKeys "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Napačno
Za xRowIndex = xLastRow do 1 koraka -1
Nastavi Rng = WorkRng.Range("A" & xRowIndex)
Če je Rng.Value = "Nova linija GMS" Potem
Rng.EntireRow.Insert Shift:=xlDown
Konec Če
Naslednji


Poskušal sem eksperimentirati z ukazom SendKeys "~" med nekaterimi koraki, da bi ga poskušal doseči, da samodejno pritisne enter, ko se prikaže polje za vnos, vendar tudi to ni delovalo. Nisem bil prepričan, kje točno naj uporabim ukaz SendKeys v makru ali če bi celo deloval z vnosnim poljem!
Ta komentar je moderator na spletnem mestu minimiziral
prosim, pomagajte mi, da imam podatke. Imam podatke o času za en mesec, v katerih moram vstaviti prazne vrstice glede na čas pobega
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, hr.babu08, žal je odgovor pozen. Predvidevam, da želite vstaviti prazne vrstice ali označiti manjkajoče podatke o zaporedju, če je tako, lahko poskusite Kutools for Excel s funkcijo Najdi manjkajočo zaporedno številko. Tukaj je vadnica o funkciji: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf če želite druge metode za vstavljanje praznih vrstic za manjkajoče zaporedje, obiščite:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Ali je mogoče ta marko uporabiti/spremeniti za barvne celice?
Vstaviti moram vsaj 10 vrstic nad konec vsake serije, ki je obarvana.
Thx!
Ta komentar je moderator na spletnem mestu minimiziral
Dodati moram določene vrstice z vrednostmi v njih za določeno vsebino celice, vendar nisem prepričan, kako to narediti, ne da bi moral ročno narediti več kot 3800 vrstic

Primer: A1 = vozlišče1
Moram imeti vstavljeno vrstico in vanjo vnesti vrednost Scanner
Vnesite drugo vrstico in vnesite vrednost Tiskalnik
druga vrstica z vrednostjo CD.
itd
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Chris, tukaj je VBA, ki ti lahko pomaga samodejno vstaviti tri vrstice (skener, tiskalnik, CD), ko je vrednost enaka Node1.
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a 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 = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

Povejte mi, če vam ustreza.
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL