Hur automatiskt infoga rad baserat på cellvärde i Excel?

Antag att du har en rad data och att du automatiskt vill infoga tomma rader ovanför eller under ett visst värde i Excel, till exempel automatiskt infoga rader under nollvärde enligt nedanstående skärmdump. I Excel finns det inget direkt sätt att lösa denna uppgift, men jag kan införa en makrokod för dig att automatiskt infoga rader baserat på ett visst värde i Excel.
Infoga raden nedan baserat på cellvärde med VBA

Infoga raden ovan baserat på cellvärde med Kutools för Excel

Infoga raden nedan baserat på cellvärde med VBA

Så här infogar du rad baserat på cellvärde genom att köra VBA:

1. Tryck Alt + F11 tangenter samtidigt, och a Microsoft Visual Basic för applikationer fönstret dyker upp.

2. klick Insert > Modulernaoch klistra sedan in under VBA-koden till poppningen Modulerna fönster.

VBA: Infoga raden nedan baserat på cellvärdet.

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. klick F5 nyckeln eller run -knappen dyker en dialogruta ut och välj kolumnen innehåller noll. Se skärmdump:

4. klick OK. Därefter infogas tomma rader under nollvärdet.

Tips:

1. Om du vill infoga rader baserat på annat värde kan du ändra 0 till vilket värde du vill ha i VBA: Om Rng.Value = "0" Då.

2. Om du vill infoga rader över noll eller annat värde kan du använda nedanstående vba-kod.

VBA: Infoga rad över nollvärde:

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

Infoga raden ovan baserat på cellvärde med Kutools för Excel

Om du inte känner till VBA kan du prova Kutools för Excel's Välj specifika celler och sätt sedan in rader ovan.

När du har installerat Kutools för Excel, gör så här:（Gratis nedladdning Kutools för Excel nu!)

1. Välj listan du vill ta reda på de specifika cellerna från och klicka på Kutools > Välja > Välj specifika celler. Se skärmdump:

2. Kontrollera i poppdialogen Hela raden och välj sedan lika från Specifik typ och ange sedan det värde du vill hitta i rätt textruta. Se skärmdump:

3. klick Ok, och en dialogruta dyker upp för att påminna dig om antalet valda rader, bara stäng den.

4. Placera markören på en markerad rad och högerklicka för att välja Insert från snabbmenyn. Se skärmdump:

Nu infogas raderna ovan baserat på ett specifikt värde.

  Infoga rader ovan baserat på cellvärde

Relativa artiklar:

• Infoga tomma rader i Excel

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

• Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
• Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
• Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Gratis nedladdning... Köp...