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



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!


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
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.
    SPGupta · 1 months ago
    How to add rows in excel data as per mentioned number in last cell say in a excel data if last cell is showing number as 4 , what is the way to dd 4 rows automtically. in another row number is 72, etc
    • To post as a guest, your comment is unpublished.
      skyyang · 1 months ago
      Hi, SPGupta,
      To insert blank rows based on specific number list, please apply the below VBA code.
      Please try, hope it can help you!

      Sub Insert()
      'UpdatebyExtendoffice
      Dim xRg As Range
      Dim xAddress As String
      Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
      On Error Resume Next
      xAddress = ActiveWindow.RangeSelection.Address
      Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "KuTools For Excel", xAddress, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      Application.ScreenUpdating = False
      xLastRow = xRg(1).End(xlDown).Row
      xFstRow = xRg.Row
      xCol = xRg.Column
      xCount = xRg.Count
      Set xRg = xRg(1)
      For I = xLastRow To xFstRow Step -1
      xNum = Cells(I, xCol)
      If IsNumeric(xNum) And xNum > 0 Then
      Rows(I + 1).Resize(xNum).Insert
      xCount = xCount + xNum
      End If
      Next
      xRg.Resize(xCount, 1).Select
      Application.ScreenUpdating = True
      End Sub
      • To post as a guest, your comment is unpublished.
        Nina · 19 hours ago
        Hi, could you help me, please? How can I change this code to ad one more less rows than number in cell? For example, if number in cell is 4, program add 3 rows. If number in cell is 1, rows are not aded
  • To post as a guest, your comment is unpublished.
    PK · 10 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 · 10 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 · 1 years 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 · 2 years ago
    Thanks AloT!!
  • To post as a guest, your comment is unpublished.
    Stephanie · 2 years ago
    thank you so much!!!!! this is amazing
  • To post as a guest, your comment is unpublished.
    Farooq · 3 years ago
    Hi,

    I'm using your code (below) can you please tell me how can fill those rows with custom text into it. I've used your code to enter three rows it worked perfectly but now I need to enter the text

    Row1 = Date
    Row2.= Location
    Row3 = Phone Number

    Thanks in advance...



    "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"