Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment insérer un nombre spécifique de lignes à intervalles fixes dans Excel?

Dans la feuille de calcul Excel, vous pouvez insérer une ligne vide entre les lignes existantes en utilisant la fonction Insérer. Mais, si vous avez un large éventail de données, et que vous devez insérer deux lignes vides après chaque troisième rangée, comment pourriez-vous terminer ce travail rapidement et facilement?

Insérer un nombre spécifique de lignes dans les données à intervalles fixes avec le code VBA

Insérer un nombre spécifique de lignes dans des données à intervalles fixes avec Kutools for Excel


Insérer un nombre spécifique de lignes ou de colonnes dans des données à intervalles fixes:

Kutools for Excel's Insérer des lignes vides et des colonnes peut vous aider à insérer toutes les autres ou nièmes lignes ou colonnes dans les données existantes.

doc-insert-rows-value-changements-17

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!



Le code VBA suivant peut vous aider à insérer un nombre spécifique de lignes après chaque ligne nième dans les données existantes. S'il vous plaît faites comme suit:

1. Maintenez le ALT + F11 clés dans Excel, et il ouvre la Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: Insérer un nombre spécifique de lignes dans les données à intervalles fixes

Sub InsertRowsAtIntervals()
'Updateby20150707
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Après avoir collé ce code, appuyez sur F5 clé pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rester en sélectionnant la plage de données que vous souhaitez insérer une ligne vide, voir capture d'écran:

doc insérer des lignes à des intervalles 1

4. Cliquez OK bouton, une autre boîte d'invite apparaîtra, s'il vous plaît entrer le nombre d'intervalles de ligne, voir capture d'écran:

doc insérer des lignes à des intervalles 2

5. Aller en cliquant OK bouton, dans la boîte de dialogue suivante, veuillez entrer le nombre de lignes vierges que vous voulez insérer, voir capture d'écran:

doc insérer des lignes à des intervalles 3

6. Puis clique OKet les lignes vides ont été insérées dans les données existantes à intervalles réguliers, voir capture d'écran:

doc insérer des lignes à des intervalles 4


Si vous n'êtes pas familier avec le code VBA ci-dessus, Kutools for Excel peut également vous aider, sa fonctionnalité Insérer des lignes vides et des colonnes peut insérer un nombre spécifique de lignes ou de colonnes dans des données existantes à intervalles fixes rapidement et facilement.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Excel, s'il vous plaît faites comme suit:

1. Sélectionnez la plage de données dans laquelle vous souhaitez insérer des lignes vides à intervalles réguliers.

2. Cliquez Kutools > insérer > Insérer des lignes vides et des colonnes, voir capture d'écran:

doc insérer des lignes à des intervalles 5 5

3. Dans le Insérer une ligne vierge et des colonnes boîte de dialogue, choisissez Lignes vides or Colonnes vides vous avez besoin, de la Type d'insertion, puis spécifiez le nombre d'intervalles et de lignes vides que vous souhaitez utiliser comme capture d'écran suivante:

doc insérer des lignes à des intervalles 6

4. Puis clique OK bouton, et les lignes vides ont été insérés dans la plage sélectionnée à un intervalle spécifique comme suivant capture d'écran montré:

doc insérer des lignes à des intervalles 7

Cliquez pour en savoir plus sur cet utilitaire Insérer une ligne et des colonnes vides.

Télécharger et tester gratuitement Kutools for Excel maintenant!


Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    PK · 3 months ago
    hi how can I get the code for Insert specific number of columns into data at fixed intervals
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, PK,
      To insert blank columns into existing data at specific intervals, the below VBA code can help you! Please try it.

      Sub InsertColumnsAtIntervals()
      Dim Rng As Range
      Dim xInterval As Integer
      Dim xCs As Integer
      Dim xCCount As Integer
      Dim xNum1 As Integer
      Dim xNum2 As Integer
      Dim WorkRng As Range
      Dim xWs As Worksheet
      xTitleId = "KutoolsforExcel"
      Set WorkRng = Application.Selection
      Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
      xCCount = WorkRng.Columns.Count
      xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
      xCs = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
      xNum1 = WorkRng.Column + xInterval
      xNum2 = xCs + xInterval
      Set xWs = WorkRng.Parent
      For I = 1 To Int(xCCount / xInterval)
      xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Select
      Application.Selection.EntireColumn.Insert
      xNum1 = xNum1 + xNum2
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    Martin · 11 months ago
    Fantastic - you saved me a lot of mindless data entry, thank you very much
  • To post as a guest, your comment is unpublished.
    Manish · 1 years ago
    Hi


    I use interval vba code its working..But when I use above 100000 rows it not working.. kindly suggest what should I change if any.


    Sub InsertRowsAtIntervals()
    'Updateby20150707
    Dim Rng As Range
    Dim xInterval As Integer
    Dim xRows As Integer
    Dim xRowsCount As Integer
    Dim xNum1 As Integer
    Dim xNum2 As Integer
    Dim WorkRng As Range
    Dim xWs As Worksheet
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    xRowsCount = WorkRng.Rows.Count
    xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
    xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
    xNum1 = WorkRng.Row + xInterval
    xNum2 = xRows + xInterval
    Set xWs = WorkRng.Parent
    For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
    Next
    End Sub
  • To post as a guest, your comment is unpublished.
    Atif · 1 years ago
    Thanks AloT!!
  • To post as a guest, your comment is unpublished.
    Stephanie · 1 years ago
    thank you so much!!!!! this is amazing