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

Hvordan indsættes automatisk række baseret på celleværdi i Excel?

doc-indsæt-række-baseret-på-værdi-1
Antag at du har en række data, og at du automatisk vil indsætte tomme rækker over eller under en bestemt værdi i Excel, for eksempel indsæt automatisk rækker under nulværdi som vist nedenfor. I Excel er der ingen direkte måde at løse denne opgave på, men jeg kan introducere en makro-kode, så du automatisk kan indsætte rækker baseret på en bestemt værdi i Excel.
Indsæt række nedenfor baseret på celleværdi med VBA

Indsæt række ovenfor baseret på celleværdi med Kutools til Excel god idé3

For at indsætte række baseret på celleværdi ved at køre VBA skal du gøre som nedenstående trin:

1. Trykke Alt + F11 taster samtidigt, og a Microsoft Visual Basic til applikationer vinduet springer ud.

2. klik indsatte > Moduler, og indsæt derefter under VBA-koden for at poppe Moduler vindue.

VBA: Indsæt nedenunder række baseret på celleværdi.

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 tasten eller Kør knappen, en dialog vises, og vælg kolonnen indeholder nul. Se skærmbillede:
doc-indsæt-række-baseret-på-værdi-2

4. klik OK. Derefter indsættes tomme rækker under nulværdien.
doc-indsæt-række-baseret-på-værdi-3

Tip:

1. Hvis du vil indsætte rækker baseret på en anden værdi, kan du ændre 0 til enhver værdi, du vil have i VBA: Hvis Rng.Value = "0" Så.

2. Hvis du vil indsætte rækker over nul eller en anden værdi, kan du bruge nedenstående vba-kode.

VBA: Indsæt række over nulværdi:

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-indsæt-række-baseret-på-værdi-4


Hvis du ikke er fortrolig med VBA, kan du prøve Kutools til Excel's Vælg specifikke celler værktøj, og indsæt derefter rækker ovenfor.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter installation Kutools til Excel, gør venligst som nedenfor:(Gratis download Kutools til Excel nu!)

1. Vælg den liste, du vil finde ud af de specifikke celler fra, og klik på Kutools > Type > Vælg specifikke celler. Se skærmbillede:
doc indsæt række baseret på værdi 9

2. Kontroller i poppedialogen Hele rækken og vælg derefter Lig fra Specifik type listen, og indtast derefter den værdi, du vil finde i den rigtige tekstboks. Se skærmbillede:
doc indsæt række baseret på værdi 6

3. klik Ok, og der vises en dialogboks, der minder dig om antallet af valgte rækker, bare luk den.

4. Placer markøren på en valgt række, og højreklik for at vælge indsatte fra genvejsmenuen. Se skærmbillede:
doc indsæt række baseret på værdi 7

Nu indsættes rækkerne ovenfor baseret på en bestemt værdi.
doc indsæt række baseret på værdi 8


Relative artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (42)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil gerne indsætte specifikt indhold under cellen nedenfor. Hvordan gør man det? I stedet for Blank række vil jeg indsætte værdi i få kolonner.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg vil indsætte flere rækker baseret på værdien Eks.: Jeg vil indsætte 1 tom række under cellen med værdi 2, 2 rækker under cellen med værdi 3, 3 rækker under cellen med værdi 4 og så videre Kan du venligst hjælpe mig med dette?
Denne kommentar blev minimeret af moderatoren på webstedet
Fik du nogensinde svar på dette? Jeg prøver at gøre det samme.

Har en liste over medarbejdere med # ugers ferie, de får. Jeg vil indsætte en række for hver uge. Det vil være 1, 2 eller 3 rækker afhængigt af hvor meget tid de har tjent. #s 1 2 3 er allerede i mit regneark.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil indsætte rækker baseret på en optælling ved at bruge en celleværdi i et regneark og indsætte rækker i et andet regneark.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for din besked. Men kan du beskrive dit spørgsmål med flere detaljer? Hvilke rækker vil du indsætte? Blank? Og hvor vil du indsætte i arket? Hvis du kan, så giv mig et skærmbillede. Tak skal du have.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg elsker dig. Tak skal du have.
Denne kommentar blev minimeret af moderatoren på webstedet
Det var fantastisk!!. Tak mand.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan kan jeg indsætte mere end én række?
Denne kommentar blev minimeret af moderatoren på webstedet
Du kan prøve denne VBA

Sub BlankLine()
'Opdatering senest 20150203
Dim Rng Som Range
Dæmp WorkRng As Range
Dim xInsertNum As Long
' Ved fejl Genoptag næste
xTitleId = "Kutools til Excel"
Indstil WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Hvis WorkRng ikke er noget, skal du afslutte Sub
xInsertNum = Application.InputBox("Antallet af tomme rækker, du vil indsætte ", xTitleId, Type:=1)
Hvis xInsertNum = False Så
MsgBox " Antallet af tomme rækker du vil indsætte ", vbInformation, xTitleId
Exit Sub
End If
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow Til 1 Trin -1
Indstil Rng = WorkRng.Range("A" & xRowIndex)
Hvis Rng.Value = "0" Så
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
End If
Næste
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
hvis du vil indsætte tomme rækker nedenfor, prøv dette

Sub BlankLine()
'Opdatering senest 20150203
Dim Rng Som Range
Dæmp WorkRng As Range
Dim xInsertNum As Long
' Ved fejl Genoptag næste
xTitleId = "Kutools til Excel"
Indstil WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Hvis WorkRng ikke er noget, skal du afslutte Sub
xInsertNum = Application.InputBox("Antallet af tomme rækker, du vil indsætte", xTitleId, Type:=1)
Hvis xInsertNum = False Så
MsgBox " Antallet af tomme rækker du vil indsætte ", vbInformation, xTitleId
Exit Sub
End If
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow Til 1 Trin -1
Indstil Rng = WorkRng.Range("A" & xRowIndex)
Hvis Rng.Value = "0" Så
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
End If
Næste
Application.ScreenUpdating = True
End Sub

Den nedenstående er at indsætte rækker over.
Denne kommentar blev minimeret af moderatoren på webstedet
HI Sunny, denne makro fungerer perfekt for mig; jeg skulle bare ændre antallet af rækker til 30 og ændre 0'et til teksten: "Afslutningsbalance". Men nu vil jeg kopiere og indsætte et udvalg af celler, som er 30 rækker højt, i de 30 tomme linjer, som lige blev indsat af denne makro. Kan du foreslå en ny makro (eller et ændringsforslag til denne) for at kopiere og indsætte et interval i hver 30 blanks linjer. Jeg har navngivet området til at kopiere og indsætte 'skabelon'.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har brug for stor hjælp til dette emne. Jeg har 2 kolonner, den 1. har jeg min datatid 01/01/2016 05:00:00, dage/måneder/år time/minut/sekunder og i 2. 2. kolonne de respektive data knyttet til tiden.

Mit problem er, at jeg vil tilføje datatid mellem rækker, da jeg har dages mellemrum. 1. linje er 01/01/2016 og 2. række har f.eks. 10/01/2016, så jeg har 9 dage. og den kode virker ikke for mig.

Ser frem til at få noget feedback, tak! Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Du kan prøve denne VBA

Sub InsertValueBetween()
'Opdatering 20130825
Dæmp WorkRng As Range
Dim Rng Som Range
Dim outArr som variant
Dim dic Som Variant
Indstil dic = CreateObject("Scripting.Dictionary")
'Ved fejl genoptage næste
xTitleId = "KutoolsforExcel"
Indstil WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 til interval + 1, 1 til 2)
For hver Rng I WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Værdi
Næste
For i = 0 Til interval
outArr(i + 1, 1) = i + tal1
Hvis dic.Eksisterer(i + num1) Så
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
End If
Næste
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Værdi = outArr
.Vælg
Slut med
End Sub


Eller hvis du har Kutools til Excel, kan du prøve denne funktion:
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak, jeg har prøvet begge dele, den første, da jeg har omkring 1 rækker med data, jeg gør det for alle 500 rækker og gør ikke noget, jeg tror måske, det har en begrænsning på rækkerne, der skal bruges, og når jeg vælger kun de første 500 rækker, for eksempel, opretter det ikke de manglende rækker, erstatter rækkerne for de manglende data.

Et andet problem, jeg har, er, at mine tidsdata også har dag/måned/år TT: MM: SS
Denne kommentar blev minimeret af moderatoren på webstedet
Fra 2 til 3 opretter den de manglende data, som jeg vil have ok, men værdien af ​​03/01/2016 er elimineret, og der er noget tidsdata, der er elimineret noget, som jeg heller ikke vil have
Denne kommentar blev minimeret af moderatoren på webstedet
Beklager, at VBA-koden ikke hjalp dig, jeg kan ikke finde metoden, der kan fungere til dato- og tidsformat. Hvis du finder løsningen endelig, kan du så fortælle mig det? Tak skal du have.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej igen Sunny, jeg fik lidt succes med at redigere koden til dette (jeg ændrer num1-linjen til A2 og With WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2) ):


Sub InsertValueBetween()
'Opdatering 20130825
Dæmp WorkRng As Range
Dim Rng Som Range
Dim outArr som variant
Dim dic Som Variant
Indstil dic = CreateObject("Scripting.Dictionary")
'Ved fejl genoptage næste
xTitleId = "KutoolsforExcel"
Indstil WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A2").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 til interval + 1, 1 til 2)
For hver Rng I WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Værdi
Næste
For i = 0 Til interval
outArr(i + 1, 1) = i + tal1
Hvis dic.Eksisterer(i + num1) Så
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
End If
Næste
With WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Værdi = outArr
.Vælg
Slut med
End Sub



Jeg viser dig graferne, det virker ikke 100%, fordi det ikke skaber tiden fra A1 til A2
Denne kommentar blev minimeret af moderatoren på webstedet
Her er mit spørgsmål, og det er et meget svært, tror jeg.. er der en vba-kode, der tilføjer en ny række under en filtreret kolonne og kopierer kun de første tre celler ind i den tilføjede nye række og fortsætter med at gøre det, indtil brugeren holder op med at trykke "enter" og affiltrere de filtrerede celler?
Denne kommentar blev minimeret af moderatoren på webstedet
Dit spørgsmål er lidt svært og komplekst, du kan stille spørgsmålet i vores forum, måske kan nogen svare dig. https://www.extendoffice.com/forum.html
Denne kommentar blev minimeret af moderatoren på webstedet
hej, jeg vil bare spørge, hvordan man tilføjer række, hvis koden er, at tilføje række skal udføres, når en celle allerede har data (det er til en excel-projektmappe med en masse ark :) Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
måske denne vba-kode kan hjælpe dig. Det tilføjer rækker, hvis ovenstående række ikke er tom

Underhjælper()
Dim tæller så længe
For count = ActiveSheet.UsedRange.Rows.count To 1 Step -1
If Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Indsæt
Næste optælling
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg prøver at bruge denne kode til at indtaste en række, når de første 4 cifre i en celle ændres (hvis det overhovedet er muligt)

for eksempel,
2222A
2222B
2223K


linjen vil blive indsat efter 2222B, da det 3. tal er en 3 og ikke en 2

Tak gutter!!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Tak for dette, men jeg har et andet scenarie, hvor jeg skal indsætte en cingle-celle under værdien, der ikke er nul. Sætter pris på ethvert forslag.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Gina, jeg har lige fundet koden til at indsætte en tom række over cellen, der er ikke-tom, måske nogen kan justere den for at imødekomme dit behov.

Sub Insert_Rows()
Dæmp LR så længe, ​​r så længe

Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Række
For r = LR Til 1 Trin -1
Hvis Len(Range("A" & r).Værdi) > 0 Så
Rækker(r).Indsæt
End If
Næste r
Application.ScreenUpdating = True
End Sub

kommer fra https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, dette er meget nyttigt. Hvad hvis jeg ville tilføje to linjer nedenfor, og jeg ville have flere værdier. For eksempel vil jeg tilføje to linjer efter værdien 26/04/2019 og derefter to linjer efter 03/04/2019, og listen fortsætter. Hvordan bliver jeg ved med at tilføje til vba? Beklager, jeg er stadig nybegynder. Tak på forhånd.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Safa, måske kan du prøve Kutools' hjælpeprogram til at indsætte tomme rækker/kolonner.
Denne kommentar blev minimeret af moderatoren på webstedet
Sub BlankLine()
'Opdatering senest 20150203
Dim Rng Som Range
Dæmp WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Indstil WorkRng = Application.Selection
Indstil 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
Indstil Rng = WorkRng.Range("A" & xRowIndex)
Hvis Rng.Value = "0" Så
Rng.EntireRow.Insert Shift: = xlDown
End If
Næste
Application.ScreenUpdating = True
End Sub


Jeg har brug for dette til at fungere hver gang jeg sætter noget i cellen, og også med flere variabler. Hvad jeg mener er, at hvis jeg sætter 2 i cellen, har jeg brug for det til at indsætte 2 rækker og ikke kun 1.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har brug for makroen til at tilføje rækker baseret på en mængdekolonne, hvor hvis mængden er større end 1, indsætter den antallet af rækker -1. Hvis mængden er 5, indsætter den 4 rækker under den og udfylder dataene og ændrer den opkaldte mængde fra 5 til 1 hver række. Spring over alt antal 1.
Denne kommentar blev minimeret af moderatoren på webstedet
Fortæl mig koden, hvor jeg vil tilføje et bestemt antal rækker baseret på en celleværdi. for eksempel, hvis celle indeholder tallet 18, skal der automatisk tilføjes 18 rækker, hvor jeg vil, og resten af ​​tabellen/cellen skal flyttes nedad.
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak for dette, virkelig en enorm tidsbesparelse. Ville det være muligt at tilføje noget kode, som giver mig mulighed for at indsætte noget tekst i den nye række. For eksempel indsætter jeg nye rækker baseret på målværdi 'x', så vil jeg tilføje tekstværdi 'y' i cellen under målværdi 'x'. Er dette muligt?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej. Makroen virker for mig, men er der en måde at altid have området/parametrene sat til kolonne J, uden at inputboksen overhovedet kommer op? Jeg vil gerne have det til at springe trinnet i inputboksen over. Jeg har også sørget for, at den sidste linje i min forrige makro lige før denne makro er Range("J:J"). Vælg for at sikre, at hele J-kolonnen allerede er valgt.
Dette er hvad jeg har brugt indtil videre.

Dim Rng Som Range
Dæmp WorkRng As Range
On Error Resume Next
xTitleId = "Klik OK for at fortsætte"
Indstil WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Send Keys "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow Til 1 Trin -1
Indstil Rng = WorkRng.Range("A" & xRowIndex)
Hvis Rng.Value = "Ny GMS-linje" Så
Rng.EntireRow.Insert Shift:=xlDown
End If
Næste


Jeg har prøvet at eksperimentere med SendKeys "~"-kommandoen mellem nogle af trinene for at prøve at få den til at trykke enter automatisk, når indtastningsboksen kommer op, men det har heller ikke virket. Jeg var ikke sikker på præcis, hvor jeg skulle bruge SendKeys-kommandoen i makroen, eller om den endda ville fungere med en inputboks!
Denne kommentar blev minimeret af moderatoren på webstedet
venligst hjælp mig med at have en data.Jeg har en måneds tidsdata, idet jeg skal indsætte en tom række i henhold til escape-tiden
Denne kommentar blev minimeret af moderatoren på webstedet
Hej hr.babu08, undskyld svaret er sent. Jeg gætter på, at du vil indsætte tomme rækker eller markere de manglende sekvensdata, hvis det er tilfældet, kan du prøve Kutools til Excel's Find Missing Sequence Number-funktion.Her er vejledningen om funktionen: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf du vil have andre metoder til at indsætte tomme rækker for manglende sekvens, besøg venligst:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Kan denne marco bruges/ændres til farvede celler?
Jeg skal indsætte mindst 10 rækker over enden af ​​hver serie, som er farvet.
Thx!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg er nødt til at tilføje bestemte rækker med værdier i dem for specifikt celleindhold, men jeg er ikke sikker på, hvordan man gør det uden at skulle gøre det manuelt i over 3800+ linjer

Eks: A1 = Node1
Jeg skal have en række indsat og den for at indtaste værdien Scanner
Indtast en anden række og indtast værdien Printer
en anden række med værdi CD.
etc.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Chris, her er en VBA, der kan hjælpe dig med automatisk at indsætte tre rækker (Scanner, Printer, CD), når værdien er lig med 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

Lad mig venligst vide, om det virker for dig.
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL