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

Dans votre utilisation quotidienne d'Excel, vous pouvez rencontrer une situation dans laquelle vous devez ajouter plus de colonnes entre les colonnes existantes. Vous pouvez, bien entendu, insérer les colonnes une par une à l'aide de la fonction Insérer. Mais lorsque vous faites face à des données volumineuses et que vous devez insérer trois colonnes après chaque deuxième ou nième colonne, la fonction Insert n'est apparemment pas efficace. Alors, comment pouvez-vous terminer rapidement la tâche ? Dans ce tutoriel, nous parlerons de deux méthodes simples pour résoudre le problème.

Insérer un nombre spécifique de colonnes vides dans la plage de données à intervalles fixes avec le code VBA

Insérez un nombre spécifique de colonnes vides dans la plage de données à intervalles fixes avec une fonctionnalité étonnante

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

1. appuie sur le Alt + F11 clés dans Excel, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module et collez la macro suivante dans le Module Fenêtre.

Code VBA : insérez un nombre spécifique de colonnes dans les données à intervalles fixes

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. appuie sur le F5 clé pour exécuter ce code. Une boîte de dialogue apparaît pour vous rappeler de sélectionner le plage de données dans lequel vous souhaitez insérer des colonnes vides.

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

5. Continuez à cliquer sur le OK bouton. 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 boite.

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

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

Avant d'appliquer Kutools for Excel, veuillez d'abord le télécharger et l'installer.

1. Sélectionnez d'abord la plage de données existante. Puis clique Kutools > insérer > Insérer des lignes et des colonnes vides.

2. le Insérer des lignes et des colonnes vides boîte de dialogue 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. Choisir la Colonnes vierges option dans la Insérer le type section. Et précisez les nombres d'intervalles de colonnes et colonnes que vous souhaitez insérer à chaque intervalle. Ici, je saisis 1 et 3 séparément.

3. Cliquez sur l' OK bouton pour terminer le réglage et obtenir le résultat.

Notes: Si vous souhaitez avoir un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis allez appliquer l'opération en suivant les étapes ci-dessus.

---

Les meilleurs outils de productivité de bureau

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

• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée
• Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammes
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules
• 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 par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF
• Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nom

Lire la suite... Essai gratuit de 30 jours ... Achat... 

---

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!

Lire la suite... Essai gratuit de 30 jours ... Achat...