Hvordan indsættes automatisk række baseret på cellevæ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
Indsæt række nedenfor baseret på celleværdi med VBA
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:
4. klik OK. Derefter indsættes tomme rækker under nulværdien.
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
Indsæt række ovenfor baseret på celleværdi med Kutools til Excel
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:
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:
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:
Nu indsættes rækkerne ovenfor baseret på en bestemt værdi.
Indsæt rækker over baseret på celleværdi
Relative artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!