Hoe snel ruimte tussen elke rij in Excel invoegen?
In Excel kunt u het rechtsklikmenu gebruiken om een rij boven de actieve rij te selecteren, maar weet u hoe u lege rijen in elke rij moet invoegen zoals onderstaand screenshot laat zien? Hier introduceer ik enkele trucs om deze taak snel op te lossen.
Voeg lege rijen in tussen elke rij met de sorteerfunctie
Voeg lege rijen in tussen elke rij op VBA-code
Voeg lege rijen / kolommen in tussen elke rij / kolom door Kutools voor Excel
Voeg lege rijen in tussen elke rij met de sorteerfunctie
Als u lege rijen tussen elke rij wilt invoegen, kunt u een reeks getallen eerst twee keer invullen en vervolgens de getallen sorteren.
1. Vul in het aangrenzende nummer een reeks cijfers in die overeenkomt met het rijnummer.
2. Kopieer de serienummers en plak ze in de cel na het laatste nummer.
2. Selecteer alle serienummers, klik op Data > Sorteer kleinste naar grootste.
3. In het knallen Sorteer waarschuwing dialoog, bewaar Vouw de selectieoptie uit aangevinkt, klik Sorteer.
Nu zijn de spaties tussen elke rij ingevoegd. U kunt de kolom met het serienummer later verwijderen.
Voeg lege rijen in tussen elke rij op VBA-code
Als u bekend bent met macrocode, is hier een code die u ook kan helpen.
1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module, kopieer en plak vervolgens onderstaande code in de module.
VAB: voeg een spatie in tussen de rijens
Sub RowsInsertInSelectCells()
'UpdatebyExtendoffice20180801
Dim xWS As Worksheet
Dim xCR, xR, xCC, xC, xFC, xFR As Long
Dim xFNum As Integer
Dim xRg, xCRg As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 0 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xWS = ActiveWorkbook.ActiveSheet
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 0 Then
xCR = xRg.Rows.Count
xCC = xRg.Columns.Count
xR = xRg.Row
xC = xRg.Column
Application.ScreenUpdating = False
For xFC = 0 To xCC - 1
For xFR = xCR To 1 Step -1
xWS.Cells(xR + xFR, xC + xFC).Insert
Next
Next xFC
Application.ScreenUpdating = True
End If
End Sub
3. druk op F5 toets om de code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren de werkgegevens te selecteren.
4. klikken OK. Nu zijn de spaties tussen geselecteerde rijen ingevoegd.
Voeg lege rijen / kolommen in tussen elke rij / kolom door Kutools voor Excel
Als u snel en gemakkelijk lege rijen of kolommen tussen elke rij of kolom wilt invoegen, kunt u Kutools for Excel's Insert Blank Rows & Columns hulpprogramma, waarmee u het interval van rijen en het aantal lege rijen naar behoefte kunt specificeren.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na het installeren van Kutools voor Excel, doe het als volgt:(Download nu Kutools voor Excel!)
1. Selecteer het gegevensbereik waarvoor u lege rijen of kolommen wilt invoegen, klik op Kutools > Insert > Insert Blank Rows & Columns.
2. In de Insert Blank Rows & Columns dialoogvenster, vink aan Blank rows or Blank columns zoals u nodig heeft en specificeer de opties van Interval of en Rows.
3. klikken Ok.
Inerte lege rijen tussen elke rij | Voeg een lege kolom in tussen elke kolom |
Tip: dit hulpprogramma ondersteunt ongedaan maken Ctrl + Z.
Voeg lege rijen of kolommen in met specifieke intervallen
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!