Hur automatiskt infoga rad baserat på cellvä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 Körning -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.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. | ||
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:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!