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

Dans votre utilisation quotidienne d'Excel, vous pouvez rencontrer une situation où vous devez ajouter plus de colonnes entre les colonnes existantes. Vous pouvez bien sûr insérer les colonnes une par une en utilisant la fonction Insérer. Mais lorsque vous travaillez avec une grande quantité de données et que vous devez insérer trois colonnes après chaque seconde ou nième colonne, la fonction Insérer n'est apparemment pas efficace. Alors, comment pouvez-vous terminer rapidement cette tâche ? Dans ce tutoriel, nous parlerons de deux méthodes simples pour résoudre le problème.

Utiliser du code VBA pour insérer un nombre spécifique de colonnes vides dans une plage de données à intervalles fixes

Utiliser Kutools pour Excel pour insérer un nombre spécifique de colonnes vides dans une plage de données à intervalles fixes

Nous pouvons utiliser le "code VBA" ci-dessous pour insérer un nombre spécifique de colonnes vides après chaque nième colonne. Veuillez procéder comme suit.

1. Appuyez sur les touches "Alt + F11" dans Excel, ce qui ouvre la fenêtre "Microsoft Visual Basic for Applications".

2. Cliquez sur "Insérer" > "Module" et collez la macro suivante dans la fenêtre "Module".

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount 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)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Appuyez sur la touche "F5" pour exécuter ce code. Une boîte de dialogue apparaît pour vous rappeler de sélectionner la "plage de données" dans laquelle vous souhaitez insérer des colonnes vides.

4. Cliquez sur le bouton "OK". Une autre boîte de dialogue apparaît, veuillez entrer "le nombre d'intervalles de colonnes" dans la zone "Entrer l'intervalle de colonnes".

5. Continuez à cliquer sur le bouton "OK". La troisième boîte de dialogue apparaît, veuillez spécifier "le nombre de colonnes que vous souhaitez insérer à chaque intervalle" dans la zone.

6. Cliquez sur le bouton "OK" pour obtenir le résultat.

Si vous ne souhaitez pas utiliser la méthode du code VBA, la fonctionnalité "Insérer des lignes et des colonnes vides" de "Kutools pour Excel" est la solution parfaite pour vous. Avec cette fonctionnalité, vous pouvez insérer un nombre spécifique de colonnes dans une plage de données à intervalles fixes en quelques clics seulement.

1. Sélectionnez d'abord la plage de données existante. Ensuite, cliquez sur "Kutools" > "Insérer" > "Insérer des lignes et des colonnes vides".

2. La boîte de dialogue "Insérer des lignes et des colonnes vides" apparaît. Vous pouvez voir la plage de données que vous avez sélectionnée à l'étape 1 affichée dans la zone Plage. Choisissez l'option "Colonnes vides" dans la section "Type d'insertion". Et spécifiez "le nombre d'intervalles de colonnes" et "les colonnes que vous souhaitez insérer à chaque intervalle". Ici, j'ai saisi 1 et 3 séparément.

3. Cliquez sur le bouton "OK" pour terminer la configuration et obtenir le résultat.