Žiūrėti vaizdo įrašą - po kiekvienos „Excel“ eilutės įterpkite tuščią eilutę
Žmonėms, dirbantiems su dideliais duomenų rinkiniais, dažnai reikia paprastų dalykų, pvz., Įterpti/ištrinti eilutes ar stulpelius.
Nors „Excel“ jau yra daug skirtingų (ir paprastų) būdų pridėti eilučių, kai reikia įterpti tuščią eilutę po kiekvienos kitos eilutės (arba kas trečią ar ketvirtą eilutę), viskas tampa šiek tiek sudėtinga.
Įterpkite tuščią eilutę po kiekvienos kitos eilutės
Šioje pamokoje parodysiu keletą tikrai paprastų būdų, kaip įterpti tuščią eilutę po kiekvienos esamo duomenų rinkinio eilutės (arba kiekvienos n eilutės).
Kadangi nėra tiesioginio būdo pridėti eilučių tarp eilučių, šiame straipsnyje aprašytas metodas yra problemos sprendimo būdas, o jei jums patinka VBA, tai galite padaryti vienu paspaudimu.
Naudojant pagalbinę stulpelį ir rūšiavimo funkciją
Tarkime, kad turite duomenų rinkinį, kaip parodyta žemiau, ir norite įterpti tuščią tarp esamų eilučių.
Toliau pateikiami žingsniai, kaip įterpti tuščias eilutes tarp esamų eilučių:
- Įterpkite tuščią stulpelį duomenų rinkinio kairėje. Norėdami tai padaryti, dešiniuoju pelės mygtuku spustelėkite kairiojo stulpelio antraštę ir spustelėkite Įterpti.
- A1 įveskite tekstą „HelperColumn“ (galite naudoti bet kokį norimą tekstą)
- Įveskite 1 į langelį A2 ir 2 į langelį A3.
- Pasirinkite abu langelius ir padėkite žymeklį pasirinkimo apačioje dešinėje. Kai žymeklis pasikeičia į pliuso piktogramą, dukart spustelėkite jį. Tai užpildys visą stulpelį didėjančiais skaičiais
- Eikite į pagalbinio stulpelio paskutinį užpildytą langelį ir pasirinkite langelį po juo.
- Įveskite 1 į šį langelį ir 2 į langelį po juo
- Pasirinkite abu langelius ir padėkite žymeklį pasirinkimo apačioje dešinėje.
- Kai žymeklis pasikeičia į pliuso piktogramą, spustelėkite ir vilkite žemyn. Tai užpildys skaičių seriją (kaip ir 3 žingsnyje). Įsitikinkite, kad gausite daugiau skaičių, nei turite duomenų rinkinyje. Pvz., Jei duomenų rinkinyje yra 10 įrašų, būtinai užpildykite bent 10 langelių. Kai baigsite, jūsų duomenų rinkinys atrodys taip, kaip parodyta žemiau.
- Pasirinkite visą duomenų rinkinį (įskaitant visas pagalbinio stulpelio ląsteles).
- Spustelėkite skirtuką Duomenys
- Spustelėkite parinktį Rūšiuoti
- Dialogo lange Rūšiuoti naudokite šiuos nustatymus:
- Rūšiuoti pagal: pagalbininkas
- Rūšiuoti pagal: Ląstelės vertė
- Užsakymas: nuo mažiausio iki didžiausio
- Spustelėkite Gerai. Tai suteiks jums duomenų rinkinį, kaip parodyta žemiau.
- Ištrinkite pagalbininko stulpelį.
Pastebėsite, kad kai tik spustelėsite Gerai dialogo lange Rūšiuoti, jis iškart pertvarkys eilutes ir dabar po kiekviena jūsų duomenų rinkinio eilute yra tuščia eilutė.
Tiesą sakant, tai nėra tuščios eilutės įterpimas. Šis rūšiavimo metodas yra tiesiog duomenų pertvarkymas, dedant tuščias eilutes iš po duomenų rinkinio tarp duomenų rinkinio eilučių.
Taip pat galite išplėsti tą pačią logiką įterpkite tuščią eilutę kas dvi eilutes arba kas tris eilutes.
Tarkime, kad turite duomenų rinkinį, kaip parodyta žemiau, ir norite gauti tuščią eilutę kas dvi eilutes.
Žemiau pateikiami žingsniai, kaip tai padaryti:
- Įterpkite tuščią stulpelį duomenų rinkinio kairėje. Norėdami tai padaryti, dešiniuoju pelės mygtuku spustelėkite kairiojo stulpelio antraštę ir spustelėkite Įterpti.
- A1 įveskite tekstą „HelperColumn“ (galite naudoti bet kokį norimą tekstą)
- Įveskite 1 į langelį A2 ir 2 į langelį A3.
- Pasirinkite abu langelius ir padėkite žymeklį pasirinkimo apačioje, dešinėje. Kai žymeklis pasikeičia į pliuso piktogramą, dukart spustelėkite jį. Tai užpildys visą stulpelį didėjančiais skaičiais
- Eikite į pagalbinio stulpelio paskutinį užpildytą langelį ir pasirinkite langelį po juo.
- Įveskite 2 į šį langelį ir 4 į langelį po juo. Mes naudojame skaičius, padaugintus iš 2, nes norime po vieną tuščią eilutę po dviejų eilučių.
- Pasirinkite abu langelius ir padėkite žymeklį pasirinkimo apačioje dešinėje.
- Kai žymeklis pasikeičia į pliuso piktogramą, spustelėkite ir vilkite žemyn. Tai užpildys skaičių seriją (kaip ir 3 žingsnyje). Įsitikinkite, kad gausite didesnį skaičių, nei turite duomenų rinkinyje. Pvz., Jei duomenų rinkinyje yra 10 įrašų, įsitikinkite, kad turite bent iki 10.
- Pasirinkite visą duomenų rinkinį (įskaitant visas pagalbinio stulpelio ląsteles).
- Spustelėkite skirtuką Duomenys
- Spustelėkite parinktį Rūšiuoti
- Dialogo lange Rūšiuoti naudokite šiuos nustatymus:
- Rūšiuoti pagal: pagalbininkas
- Rūšiuoti pagal: Ląstelės vertė
- Užsakymas: nuo mažiausio iki didžiausio
- Spustelėkite Gerai. Tai suteiks jums galutinį duomenų rinkinį, kaip parodyta žemiau (su tuščia eilute po kiekvienos antros duomenų rinkinio eilutės)
- Ištrinkite pagalbinį stulpelį.
Panašiai, jei norite įterpti tuščią eilutę po kiekvienos trečios eilutės, 5 veiksme naudokite skaičių 3, 6, 9 ir pan.
Naudojant paprastą VBA kodą
Nors jums reikia daug būdų, kaip įterpti alternatyvias tuščias eilutes į „Excel“, naudojant VBA visa tai yra pyragas.
Naudojant paprastą VBA kodą, viskas, ką jums reikia padaryti, tai pasirinkti duomenų rinkinį, į kurį norite įterpti tuščią eilutę po kiekvienos eilutės, ir tiesiog paleisti kodą (užtenka vieno paspaudimo).
Žemiau yra VBA kodas, kuris įterps tuščią eilutę po kiekvienos duomenų rinkinio eilutės:
Sub InsertAlternateRows () 'Šis kodas įterps eilutę po kiekvienos pasirinktos eilutės' Šį kodą sukūrė Sumit Bansal iš trumpexcel.com Dim rng As Diapazonas Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). Pasirinkite Next i End Sub
Aukščiau pateiktas kodas suskaičiuoja bendrą pasirinktų eilučių skaičių ir naudoja ciklą „Kitas“, kad pereitų prie kiekvienos eilutės ir įterptų tuščią eilutę po kiekvienos esamos duomenų rinkinio eilutės.
Štai kaip įdėti šį VBA kodą į „Excel“ VB redaktorių:
- Nukopijuokite aukščiau esantį kodą
- Eikite į skirtuką Kūrėjas ir spustelėkite parinktį „Visual Basic“. Tai atidarys VB redaktorių. Taip pat galite naudoti sparčiuosius klavišus ALT + F11
- VB redaktoriuje dešiniuoju pelės mygtuku spustelėkite bet kurį „Project Explorer“ objektą
- Užveskite pelės žymeklį ant parinkties Įterpti, tada spustelėkite Modulis. Tai įterps naują modulį
- Lange „Modulio kodas“ įklijuokite aukščiau esantį kodą.
Kai turėsite kodą VB redaktoriuje, dabar galite naudoti šį kodą, norėdami įterpti tuščias eilutes po kiekvienos kitos duomenų rinkinio eilutės.
Toliau pateikiami žingsniai, kaip naudoti kodą įterpiant tuščias eilutes po kiekvienos eilutės:
- Pasirinkite visą duomenų rinkinį (išskyrus antraštės eilutę)
- Spustelėkite skirtuką Kūrėjas (jei neturite skirtuko Kūrėjas, spustelėkite čia, kad sužinotumėte, kaip jį gauti)
- Spustelėkite parinktį „Makrokomandos“
- Dialogo lange makrokomanda pasirinkite makrokomandą - „InsertAlternateRows“
- Spustelėkite Vykdyti
Viskas!
Pirmiau minėti veiksmai iš karto į duomenų rinkinį įterptų tuščias eilutes.
Yra daug skirtingų būdų, kaip paleisti makrokomandą „Excel“. Pavyzdžiui, jei tai turite padaryti gana dažnai, galite pridėti šią makrokomandą prie greitos prieigos įrankių juostos, kad galėtumėte ją paleisti vienu paspaudimu.
Daugiau apie įvairius makrokomandų vykdymo būdus galite perskaityti čia.
Jei norite įterpti tuščią eilutę po kiekvienos antros eilutės, galite naudoti žemiau esantį kodą:
Sub InsertBlankRowAfterEvery2ndRow () 'Šis kodas įterps eilutę po kiekvienos antros pasirinktos eilutės' Šį kodą sukūrė Sumit Bansal iš trumpexcel.com Dim rng As Diapazonas Dim CountRow As Integer Dim i As Integer Set .EntireRow.Count For i = 1 iki CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Pasirinkite Next i End Sub
Tikimės, kad ši pamoka jums buvo naudinga.
