1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

Hvordan auto innsats rad basert på celleverdien i Excel

To Sett inn rad basert på celleverdien ved å kjøre VBA, kan du gjøre som under trinn:?
Trenger aldri å bekymre deg for lange lange formler i Excel lenger! Kutools for Excel Auto Tekst kan legge alle formler til en gruppe som automatisk tekst, og frigjøre hjernen din! Klikk her for å vite Auto Text Klikk her for å få gratis prøve 1. Trykk ALT + F11 taster samtidig, og en Microsoft Visual Basic for Applications vindu spretter ut.
2. Klikk Sett > Modul, deretter lime inn under VBA kode til popping modulen vinduet
VBA. Sett raden under basert på celleverdien.
Sub BlankLine () 'Updateby20150203 Dim RNG Som Range Dim WorkRng Som Range On Error Resume Neste xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type : = 8) Sett WorkRng = WorkRng.Columns (1) xLastRow = WorkRng.Rows.Count Application.ScreenUpdating = False For xRowIndex = xLastRow Til en Step - en Set RNG = WorkRng.Range ("A" & xRowIndex) Hvis RNG .Value = "0" Så Rng.Offset (1, 0) .EntireRow.Insert Shift: = xlDown End If Neste Application.ScreenUpdating = TrueEnd Sub3. Klikk F5-tasten eller Kjør-knappen, spretter en dialogboks ut, og velg kolonnen inneholder null. Se skjermbilde:
4. Klikk på OK. Så tomme rader vil bli satt under null verdi
. Tips:
1. Hvis du ønsker å sette inn rader basert på andre verdier, kan du endre 0 til en verdi du vil ha i VBA. Hvis Rng.Value = "0" Så
2. Hvis du ønsker å sette inn rader over null eller annen verdi, kan du bruke under VBA-kode
VBA. Sett rad over null verdi:
Sub BlankLine () 'Updateby20150203 Dim RNG Som Range Dim WorkRng Som Range On Error gjenoppta Neste xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.Columns (1) xLastRow = WorkRng.Rows. telle Application.ScreenUpdating = False For xRowIndex = xLastRow Til en Step - en Set RNG = WorkRng.Range ("A" & xRowIndex) Hvis Rng.Value = "0" Så Rng.EntireRow.Insert Shift: = xlDown End If Neste Application.ScreenUpdating = TrueEnd Sub

Sett inn rad over basert på celleverdien med Kutools for Excel
Hvis du ikke er kjent med VBA, kan du prøve Kutools for Excel Velg spesifikke celler verktøyet, og deretter sette inn rader ovenfor .
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre effektivitet og lagre din arbeidstid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter gratis installasjon
Kutools for Excel, kan du gjøre som følger:
1. Velg listen du ønsker å finne ut de spesifikke celler fra, og klikk Kutools > Velg > Velg spesifikke celler. Se skjermbilde:
to. I spratt dialog, sjekk Hele alternativet rad, og deretter gå til å velge Er lik fra Specific typeliste, og angi verdien du vil finne i høyre tekstboksen. Se skjermbilde:
tre. Klikk OK, og en dialog spretter ut for å minne deg antallet valgte rader, bare lukke den.
4. Plasser markøren på en valgt rad, og høyreklikk for å velge Sett fra kontekstmenyen. Se skjermbilde.
Nå radene blir satt ovenfor basert på en bestemt verdi
Hvis du er interessert i dette Addi-in, klikk her for å laste ned 60-dagers gratis prøveperiode.
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce

Relative Artikler:

Sett inn tomme rader i Excel