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

Hoe rij automatisch invoegen op basis van celwaarde in Excel?

doc-rij-invoegen-gebaseerd-op-waarde-1
Stel dat u een gegevensbereik heeft en u wilt automatisch lege rijen boven of onder een bepaalde waarde in Excel invoegen, bijvoorbeeld automatisch rijen onder nul invoegen, zoals onderstaand screenshot. In Excel is er geen directe manier om deze taak op te lossen, maar ik kan een macrocode introduceren waarmee u automatisch rijen kunt invoegen op basis van een bepaalde waarde in Excel.
Voeg onderstaande rij in op basis van de celwaarde met VBA

Rij hierboven invoegen op basis van de celwaarde met Kutools voor Excel goed idee 3

Voer de onderstaande stappen uit om een ​​rij in te voegen op basis van de celwaarde door VBA uit te voeren:

1. druk op Alt + F11 toetsen tegelijk, en a Microsoft Visual Basic voor toepassingen venster springt uit.

2. klikken Invoegen > Moduleen plak vervolgens onder VBA-code in de popping Module venster.

VBA: rij hieronder invoegen op basis van de celwaarde.

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. klikken F5 sleutel of de lopen knop, verschijnt er een dialoogvenster en selecteert u dat de kolom nul bevat. Zie screenshot:
doc-rij-invoegen-gebaseerd-op-waarde-2

4. klikken OK. Vervolgens worden lege rijen ingevoegd onder de nulwaarde.
doc-rij-invoegen-gebaseerd-op-waarde-3

Tip:

1. Als u rijen wilt invoegen op basis van een andere waarde, kunt u dit wijzigen 0 naar elke gewenste waarde in de VBA: Als Rng.Value = "0" Dan.

2. Als u rijen boven nul of een andere waarde wilt invoegen, kunt u de onderstaande vba-code gebruiken.

VBA: rij boven nulwaarde invoegen:

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-rij-invoegen-gebaseerd-op-waarde-4


Als u niet bekend bent met VBA, kunt u het proberen Kutools for Excel's Selecteer specifieke cellen hulpprogramma en voeg vervolgens rijen hierboven in.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

Na het installeren van Kutools voor Excel, doe het als volgt:(Download nu Kutools voor Excel!)

1. Selecteer de lijst waaruit u de specifieke cellen wilt weten, en klik op Kutools > kies > Selecteer specifieke cellen. Zie screenshot:
doc rij invoegen op basis van waarde 9

2. Vink in het popping-dialoogvenster aan Hele rij optie, en ga dan om te selecteren Is gelijk aan van Specifiek type lijst, en typ vervolgens de waarde die u wilt zoeken in het rechter tekstvak. Zie screenshot:
doc rij invoegen op basis van waarde 6

3. klikken Ok, en er verschijnt een dialoogvenster om u aan het aantal geselecteerde rijen te herinneren, sluit het gewoon.

4. Plaats de cursor op een geselecteerde rij en klik met de rechtermuisknop om te selecteren Invoegen vanuit het contextmenu. Zie screenshot:
doc rij invoegen op basis van waarde 7

Nu worden de rijen hierboven ingevoegd op basis van een specifieke waarde.
doc rij invoegen op basis van waarde 8


Relatieve artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (43)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik wil specifieke inhoud onder onderstaande cel plakken. Hoe doe je dat? In plaats van een lege rij, wil ik een waarde in een paar kolommen invoegen.
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik wil meerdere rijen invoegen op basis van de waarde Vb: ik wil 1 lege rij onder de cel invoegen met waarde 2, 2 rijen onder de cel met waarde 3, 3 rijen onder de cel met waarde 4 enzovoort. help me alsjeblieft hiermee?
Deze opmerking is gemaakt door de moderator op de site
Heb je hier ooit een antwoord op gekregen? Ik probeer hetzelfde te doen.

Maak een lijst van werknemers met # weken vakantie die ze krijgen. Ik wil voor elke week een rij invoegen. Het zullen 1, 2 of 3 rijen zijn, afhankelijk van hoeveel tijd ze hebben verdiend. de #s 1 2 3 staan ​​al in mijn spreadsheet.
Deze opmerking is gemaakt door de moderator op de site
Ik wil rijen invoegen op basis van een telling met behulp van een celwaarde in een spreadsheet en rijen invoegen in een andere spreadsheet.
Deze opmerking is gemaakt door de moderator op de site
Dankzij uw bericht. Maar kunt u uw vraag nader omschrijven? Welke rijen wil je invoegen? Blank? En waar u wilt invoegen in het blad? Als je kunt, geef me dan een screenshot. Dank u.
Deze opmerking is gemaakt door de moderator op de site
Ik houd van jou. Dank u.
Deze opmerking is gemaakt door de moderator op de site
Dat was geweldig!!. Bedankt man.
Deze opmerking is gemaakt door de moderator op de site
Hoe kan ik meer dan één rij invoegen?
Deze opmerking is gemaakt door de moderator op de site
Je kunt deze VBA proberen

Subblankeregel()
'Bijwerken door20150203'
Dim Rng als bereik
Dim WorkRng als bereik
Dim xInsertNum As Long
' Bij fout Hervatten volgende
xTitleId = "Kutools voor Excel"
Stel WorkRng = Application.Selection in
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type:=8)
Als WorkRng niets is, sluit dan Sub af
xInsertNum = Application.InputBox("Het aantal lege rijen dat u wilt invoegen ", xTitleId, Type:=1)
Als xInsertNum = False Dan
MsgBox " Het aantal lege rijen dat u wilt invoegen ", vbInformation, xTitleId
Exit Sub
End If
Stel WorkRng = WorkRng.Columns(1) in
xLastRow = WerkRng.Rijen.Aantal
Application.ScreenUpdating = False
Voor xRowIndex = xLastRow Naar 1 Stap -1
Stel Rng = WorkRng.Range ("A" & xRowIndex) in
Als Rng.Value = "0" Dan
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
End If
Volgende
Application.ScreenUpdating = True
End Sub
Deze opmerking is gemaakt door de moderator op de site
als je hieronder lege rijen wilt invoegen, probeer dan dit

Subblankeregel()
'Bijwerken door20150203'
Dim Rng als bereik
Dim WorkRng als bereik
Dim xInsertNum As Long
' Bij fout Hervatten volgende
xTitleId = "Kutools voor Excel"
Stel WorkRng = Application.Selection in
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type:=8)
Als WorkRng niets is, sluit dan Sub af
xInsertNum = Application.InputBox("Het aantal lege rijen dat u wilt invoegen", xTitleId, Type:=1)
Als xInsertNum = False Dan
MsgBox " Het aantal lege rijen dat u wilt invoegen ", vbInformation, xTitleId
Exit Sub
End If
Stel WorkRng = WorkRng.Columns(1) in
xLastRow = WerkRng.Rijen.Aantal
Application.ScreenUpdating = False
Voor xRowIndex = xLastRow Naar 1 Stap -1
Stel Rng = WorkRng.Range ("A" & xRowIndex) in
Als Rng.Value = "0" Dan
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
End If
Volgende
Application.ScreenUpdating = True
End Sub

De onderstaande is om rijen erboven in te voegen.
Deze opmerking is gemaakt door de moderator op de site
Hallo Sunny, deze macro werkt perfect voor mij; ik moest gewoon het aantal rijen wijzigen in 30 en de 0 wijzigen in tekst: "Slotsaldo". Maar nu wil ik een selectie van cellen kopiëren die 30 rijen hoog zijn in de 30 lege regels die zojuist door deze macro zijn ingevoegd. Kun je een nieuwe macro (of een wijziging van deze) voorstellen om een ​​bereik te kopiëren en te plakken in elke 30 lege regels. Ik heb het bereik om te kopiëren en plakken 'sjabloon' genoemd.
Deze opmerking is gemaakt door de moderator op de site
Ik heb enorme hulp nodig over dit onderwerp. Ik heb 2 kolommen, op de 1e heb ik mijn data tijd 01/01/2016 05:00:00, dagen/maanden/jaar uur/minuten/seconden en in de 2 2e kolom de respectievelijke gegevens die bij de tijd horen.

Mijn probleem is dat ik gegevenstijd tussen rijen wil toevoegen omdat ik dagenhiaten heb. 1e regel is 01/01/2016 en de 2e rij heeft bijvoorbeeld 10/01/2016, dus ik heb 9 dagen. en die code werkt bij mij niet.

Ik kijk ernaar uit om feedback te krijgen, alsjeblieft! Bedankt
Deze opmerking is gemaakt door de moderator op de site
Je kunt deze VBA proberen

Sub InsertValueBetween()
'Update 20130825'
Dim WorkRng als bereik
Dim Rng als bereik
UitdimenArr As Variant
Dim dic als variant
Set dic = CreateObject("Scripting.Dictionary")
'Bij fout Hervatten volgende
xTitleId = "KutoolsforExcel"
Stel WorkRng = Application.Selection in
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Bereik ("A1"). Waarde
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Waarde
interval = aantal2 - aantal1
ReDim outArr (1 tot interval + 1, 1 tot 2)
Voor elke Rng In WorkRng
dic(Rng.Waarde) = Rng.Offset(0, 1).Waarde
Volgende
Voor i = 0 Naar interval
outArr(i + 1, 1) = ik + num1
Als dic.Bestaat(i + num1) Dan
outArr(i + 1, 2) = dic(i + num1)
Anders
outArr(i + 1, 2) = ""
End If
Volgende
Met WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Waarde = outArr
.Kies
Eindigt met
End Sub


Of als je Kutools for Excel hebt, kun je deze functie proberen:
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt, ik heb beide geprobeerd, de eerste sinds ik ongeveer 1 rijen gegevens heb, ik doe dat voor alle 500 rijen en doe niets, ik denk dat het misschien een beperking heeft op de rijen die moeten worden gebruikt, en wanneer ik bijvoorbeeld alleen de eerste 500 rijen selecteer, worden de ontbrekende rijen niet gemaakt, maar worden de rijen voor de ontbrekende gegevens vervangen.

Een ander probleem dat ik heb, is dat mijn tijdgegevens ook de Dag/Maand/Jaar hebben HH: MM: SS
Deze opmerking is gemaakt door de moderator op de site
Van 2 naar 3, het creëert de ontbrekende gegevens die ik wil ok, maar de waarde van de 03/01/2016 is geëlimineerd en er zijn enige tijdgegevens die zijn geëlimineerd, iets dat ik ook niet wil
Deze opmerking is gemaakt door de moderator op de site
Sorry dat de VBA-code je niet heeft geholpen, ik kan de methode niet vinden die kan werken voor datum- en tijdnotatie. Als je uiteindelijk de oplossing hebt gevonden, laat je het me dan weten? Dank u.
Deze opmerking is gemaakt door de moderator op de site
Hallo weer Sunny, ik heb wat succes bij het bewerken van de code hierin (ik verander de num1-regel in A2 en With WorkRng.Range ("A2: A100000"). Resize (UBound (outArr, 1), UBound (outArr, 2) ):


Sub InsertValueBetween()
'Update 20130825'
Dim WorkRng als bereik
Dim Rng als bereik
UitdimenArr As Variant
Dim dic als variant
Set dic = CreateObject("Scripting.Dictionary")
'Bij fout Hervatten volgende
xTitleId = "KutoolsforExcel"
Stel WorkRng = Application.Selection in
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Bereik ("A2"). Waarde
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Waarde
interval = aantal2 - aantal1
ReDim outArr (1 tot interval + 1, 1 tot 2)
Voor elke Rng In WorkRng
dic(Rng.Waarde) = Rng.Offset(0, 1).Waarde
Volgende
Voor i = 0 Naar interval
outArr(i + 1, 1) = ik + num1
Als dic.Bestaat(i + num1) Dan
outArr(i + 1, 2) = dic(i + num1)
Anders
outArr(i + 1, 2) = ""
End If
Volgende
Met WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Waarde = outArr
.Kies
Eindigt met
End Sub



Ik laat je de grafieken zien, het werkt niet 100% omdat het geen tijd creëert van A1 naar A2
Deze opmerking is gemaakt door de moderator op de site
Hier is mijn vraag en het is een heel moeilijke, denk ik.. is er een vba-code die een nieuwe rij onder een gefilterde kolom toevoegt en alleen de eerste drie cellen naar de toegevoegde nieuwe rij kopieert en dit blijft doen totdat de gebruiker stopt met raken "invoeren" en de gefilterde cellen ongedaan maken?
Deze opmerking is gemaakt door de moderator op de site
Je vraag is wat lastig en complex, je kunt de vraag in ons forum plaatsen, misschien kan iemand je antwoord geven. https://www.extendoffice.com/forum.html
Deze opmerking is gemaakt door de moderator op de site
hallo, ik wil alleen vragen hoe ik een rij kan toevoegen als de code is dat rij toevoegen moet worden gedaan als een cel al gegevens heeft (het is voor een Excel-werkmap met veel bladen :) Bedankt!
Deze opmerking is gemaakt door de moderator op de site
misschien kan deze vba-code je helpen. Het zal rijen toevoegen als de bovenstaande rij niet leeg is

Sub helpen()
Dim tellen zo lang
Voor aantal = ActiveSheet.UsedRange.Rows.count tot 1 Stap -1
If Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Invoegen
Volgende telling
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik probeer deze code te gebruiken om een ​​rij in te voeren wanneer de eerste 4 cijfers in een cel veranderen (als dat zelfs mogelijk is)

bijvoorbeeld
2222A
2222B
2223K


de regel wordt ingevoegd na 2222B omdat het 3e cijfer een 3 is en geen 2

Bedankt jongens!!
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt hiervoor, maar ik heb een ander scenario waarin ik een cingle-cel moet invoegen onder de waarde die niet nul is. Waardeer elke suggestie.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Gina, ik vind net de code om een ​​lege rij in te voegen boven de cel die niet leeg is, misschien kan iemand het aanpassen om aan uw behoefte te voldoen.

Sub Insert_Rows()
Dim LR zo lang, r zo lang

Application.ScreenUpdating = False
LR = Bereik ("A" & Rijen.Aantal).Einde(xlOmhoog).Rij
Voor r = LR Naar 1 Stap -1
Als Len (Bereik ("A" & r). Waarde) > 0 Dan
Rijen(r).Invoegen
End If
R volgende
Application.ScreenUpdating = True
End Sub

komt van https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Deze opmerking is gemaakt door de moderator op de site
Hallo, dit is erg handig. Wat als ik hieronder twee regels wilde toevoegen en ik wilde meer waarden. Ik wil bijvoorbeeld twee regels toevoegen na de waarde 26/04/2019 en vervolgens twee regels na 03/04/2019, en de lijst gaat maar door. Hoe blijf ik toevoegen aan de vba? Sorry ik ben nog een beginner. Bij voorbaat dank.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Safa, misschien kun je het hulpprogramma voor het invoegen van lege rijen/kolommen van Kutools proberen.
Deze opmerking is gemaakt door de moderator op de site
Subblankeregel()
'Bijwerken door20150203'
Dim Rng als bereik
Dim WorkRng als bereik
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type: = 8)
Stel WorkRng = WorkRng.Columns(1) in
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
Voor xRowIndex = xLastRow Naar 1 stap - 1
Stel Rng = WorkRng.Range ("A" & xRowIndex) in
Als Rng.Value = "0" Dan
Rng.EntireRow.Insert Shift: = xlDown
End If
Volgende
Application.ScreenUpdating = True
End Sub


Ik heb dit nodig om te werken telkens als ik iets in de cel plaats, en ook met meer variabelen. Wat ik bedoel is dat als ik 2 in de cel plaats, ik het nodig heb om 2 rijen in te voegen en niet alleen 1.
Deze opmerking is gemaakt door de moderator op de site
Ik heb de macro nodig om rijen toe te voegen op basis van een hoeveelheidskolom waarbij als het aantal groter is dan 1, het het aantal rijen -1 invoegt. Als het aantal 5 is, voegt het 4 rijen eronder in en vult de gegevens in en verandert het aantal dat wordt genoemd van 5 in 1 per rij. Sla alle 1 over.
Deze opmerking is gemaakt door de moderator op de site
Vertel me de code waar ik een bepaald aantal rijen wil toevoegen op basis van een celwaarde. als cel bijvoorbeeld het cijfer 18 bevat, moeten er automatisch 18 rijen worden toegevoegd waar ik wil en moet de rest van de tabel/cel naar beneden schuiven.
Deze opmerking is gemaakt door de moderator op de site
Hartelijk dank hiervoor, echt een enorme tijdsbesparing. Zou het mogelijk zijn om wat code toe te voegen waarmee ik wat tekst in de nieuwe rij kan invoegen. Ik voeg bijvoorbeeld nieuwe rijen in op basis van doelwaarde 'x', dan wil ik tekstwaarde 'y' toevoegen in de cel onder doelwaarde 'x'. Is dit mogelijk?
Deze opmerking is gemaakt door de moderator op de site
Hallo. De macro werkt voor mij, maar is er een manier om het bereik / de parameters altijd op kolom J te zetten zonder dat het invoervak ​​​​opkomt? Ik zou graag willen dat het de stap van het invoervak ​​​​die naar voren komt, overslaat. Ik heb er ook voor gezorgd dat direct voor deze macro de laatste regel van mijn vorige macro Range ("J:J") is. Selecteer om ervoor te zorgen dat de hele J-kolom al is geselecteerd.
Dit is wat ik tot nu toe heb gebruikt.

Dim Rng als bereik
Dim WorkRng als bereik
On Error Resume Next
xTitleId = "Klik op OK om door te gaan"
Stel WorkRng = Application.Selection in
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type:=8)
Stel WorkRng = WorkRng.Columns(1) in
Verzendtoetsen "~"
xLastRow = WerkRng.Rijen.Aantal
Application.ScreenUpdating = False
Voor xRowIndex = xLastRow Naar 1 Stap -1
Stel Rng = WorkRng.Range ("A" & xRowIndex) in
Als Rng.Value = "Nieuwe GMS-lijn" Dan
Rng.EntireRow.Insert Shift:=xlDown
End If
Volgende


Ik heb geprobeerd te experimenteren met het SendKeys "~"-commando tussen enkele van de stappen om te proberen het automatisch op enter te laten drukken wanneer het invoervenster verschijnt, maar dat heeft ook niet gewerkt. Ik wist niet zeker waar ik de opdracht SendKeys in de macro precies moest gebruiken of dat het zelfs zou werken met een invoervak!
Deze opmerking is gemaakt door de moderator op de site
help me alsjeblieft om gegevens te hebben. Ik heb gegevens van een maand, in die zin dat ik lege rijen moet invoegen volgens de ontsnappingstijd
Deze opmerking is gemaakt door de moderator op de site
Hallo, hr.babu08, sorry dat het antwoord laat is. Ik neem aan dat je lege rijen wilt invoegen of een markering wilt maken voor de ontbrekende reeksgegevens, als dat zo is, kun je Kutools for Excel's Zoek ontbrekend volgnummer functie proberen. Hier is de tutorial over de functie: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf als u andere methoden wilt voor het invoegen van lege rijen voor ontbrekende reeksen, gaat u naar:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Kan deze marco worden gebruikt/aangepast voor gekleurde cellen?
Ik moet ten minste 10 rijen boven het einde van elke reeks invoegen die gekleurd is.
Thx!
Deze opmerking is gemaakt door de moderator op de site
Ik moet bepaalde rijen met waarden erin toevoegen voor specifieke celinhoud, maar ik weet niet zeker hoe ik dit moet doen zonder handmatig te hoeven doen voor meer dan 3800+ regels

Vb: A1 = Knooppunt1
Ik moet een rij hebben ingevoegd en deze om de waarde Scanner in te voeren
Voer nog een rij in en voer de waarde Printer in
nog een rij met waarde CD.
Etc.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Chris, hier is een VBA die je kan helpen om automatisch drie rijen in te voegen (Scanner, Printer, CD) wanneer de waarde gelijk is aan 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

Laat het me weten als het voor u werkt.
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL