Kako samodejno vstaviti vrstico na podlagi vrednosti celice v Excelu?
Spodaj vstavite vrstico na podlagi vrednosti celice z VBA
Zgornjo vrstico vstavite na podlagi vrednosti celice s programom Kutools za Excel
Spodaj vstavite vrstico na podlagi vrednosti celice z VBA
Če želite vstaviti vrstico na podlagi vrednosti celice z zagonom VBA, naredite spodnja navodila:
1. Pritisnite Alt + F11 tipke hkrati in a Microsoft Visual Basic za aplikacije se odpre okno.
2. klik Vstavi > Moduli, nato prilepite pod kodo VBA v pojavno okno Moduli okno.
VBA: Spodaj vstavite vrstico na podlagi vrednosti celice.
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 tipko ali Run gumb se odpre pogovorno okno in izberite stolpec, ki vsebuje nič. Oglejte si posnetek zaslona:
4. klik OK. Nato bodo prazne vrstice vstavljene pod ničlo.
Nasvet:
1. Če želite vstaviti vrstice na podlagi druge vrednosti, lahko to spremenite 0 na katero koli vrednost, ki jo želite v VBA: Če je Rng.Value = "0", potem.
2. Če želite vstaviti vrstice nad ničlo ali drugo vrednost, lahko uporabite spodnjo kodo vba.
VBA: Vstavi vrstico nad ničlo:
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
Zgornjo vrstico vstavite na podlagi vrednosti celice s programom Kutools za Excel
Če VBA ne poznate, lahko poskusite Kutools za Excel's Izberite Specific Cells in nato vstavite vrstice zgoraj.
Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. | ||
Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesite Kutools za Excel zdaj!)
1. Izberite seznam, s katerega želite izvedeti določene celice, in kliknite Kutools > Izberite > Izberite Specific Cells. Oglejte si posnetek zaslona:
2. V pojavnem pogovornem oknu potrdite Cela vrstica in nato izberite enako iz Posebna vrsta in nato v desno polje z besedilom vnesite vrednost, ki jo želite najti. Oglejte si posnetek zaslona:
3. klik Okin odpre se pogovorno okno, ki vas opomni na število izbranih vrstic, samo ga zaprite.
4. Postavite kurzor v eno izbrano vrstico in z desno miškino tipko izberite Vstavi iz kontekstnega menija. Oglejte si posnetek zaslona:
Zdaj so vrstice vstavljene zgoraj na podlagi določene vrednosti.
Vstavite vrstice zgoraj glede na vrednost celice
Relativni članki:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!