Comment insérer rapidement un espace entre chaque ligne dans Excel?
Dans Excel, vous pouvez utiliser le menu contextuel pour sélectionner une ligne au-dessus de la ligne active, mais savez-vous comment insérer des lignes vides dans chaque ligne comme illustré ci-dessous? Ici, je présente quelques astuces pour résoudre ce travail rapidement.
Insérer des lignes vides entre chaque ligne par la fonction de tri
Insérer des lignes vides entre chaque ligne par code VBA
Insérer des lignes/colonnes vides entre chaque ligne/colonne par Kutools for Excel
Insérer des lignes vides entre chaque ligne par la fonction de tri
Pour insérer des lignes vides entre chaque ligne, vous pouvez d'abord remplir une série de nombres deux fois, puis trier les nombres.
1. Dans le nombre adjacent, remplissez une série de nombres correspondant au numéro de ligne.
2. Copiez les numéros de série et collez-les dans la cellule suivant le dernier numéro.
2. Sélectionnez tous les numéros de série, cliquez sur Données > Trier du plus petit au plus grand.
3. Dans le popping Avertissement de tri dialogue, garde Développez l'option de sélection coché, cliquez sur Sort.
Maintenant, les espaces ont été insérés entre chaque ligne. Vous pouvez supprimer la colonne du numéro de série ultérieurement.
Insérer des lignes vides entre chaque ligne par code VBA
Si vous êtes familier avec le code macro, voici un code qui peut également vous aider.
1. presse Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module, puis copiez et collez le code ci-dessous dans le module.
VAB: insérer un espace entre la lignes
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. presse F5 pour exécuter le code, une boîte de dialogue apparaît pour vous rappeler de sélectionner les données de travail.
4. Cliquez OK. Maintenant, les espaces ont été insérés entre les lignes sélectionnées.
Insérer des lignes/colonnes vides entre chaque ligne/colonne par Kutools for Excel
Si vous souhaitez insérer rapidement et facilement des lignes ou des colonnes vides entre chaque ligne ou colonne, vous pouvez utiliser Kutools for Excel's Insert Blank Rows & Columns utilitaire, dont vous pouvez spécifier l'intervalle de lignes et le nombre de lignes vides selon vos besoins.
Kutools for Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. |
Après l'installation de Kutools for Excel, procédez comme suit:(Téléchargez gratuitement Kutools pour Excel maintenant!)
1. Sélectionnez la plage de données dans laquelle vous souhaitez insérer des lignes ou des colonnes vides, cliquez sur Kutools > Insert > Insert Blank Rows & Columns.
2. dans le Insert Blank Rows & Columns boîte de dialogue, vérifier Blank rows or Blank columns selon vos besoins et spécifiez les options de Interval of et Rows.
3. Cliquez Ok.
Lignes vierges inertes entre chaque ligne | Insérer une colonne vide entre chaque colonne |
Conseil : cet utilitaire prend en charge l'annulation Ctrl + Z.
Insérer des lignes ou des colonnes vides avec des intervalles spécifiques
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!