Insert Multiple Columns, Excel VBA

 

Sub InsertMultipleColumns()
Dim i As Integer Dim j As Integer
ActiveCell.EntireColumn.Select On Error GoTo Last
i = InputBox("Enter number of columns to insert”, "Insert Columns")
For j = 1 To i
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub End Sub

Ce code vous aide à entrer plusieurs colonnes dans un seul
Cliquez sur. Lorsque vous exécutez ce code, il vous demande le numéro
colonnes que vous souhaitez ajouter et lorsque vous cliquez sur OK, il ajoute
entré le nombre de colonnes après la cellule sélectionnée. Si vous
souhaitez ajouter des colonnes avant la cellule sélectionnée, remplacez le
xlToRight à xlToLeft dans le code.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x