Normalement, dans la feuille de calcul Excel, nous avons deux méthodes différentes pour supprimer les colonnes, l'une étant le raccourci clavier et l'autre en utilisant le clic droit et la méthode d'insertion, mais dans VBA, nous devons utiliser la commande de suppression et l'instruction de colonne entière pour supprimer toutes les colonnes ensemble, l'astuce pour c'est que si nous devons supprimer une seule colonne, nous donnons une seule référence de colonne, mais pour les colonnes multiples, nous donnons plusieurs références de colonne.
Colonne de suppression Excel VBA
Nous effectuons de nombreuses actions dans Excel comme couper, copier, coller, ajouter, supprimer, insérer et bien d'autres choses que nous faisons régulièrement. Nous pouvons utiliser toutes ces actions en utilisant le codage VBA. L'un des concepts importants que nous devons apprendre dans VBA est la «colonne de suppression». Dans cet article, nous allons vous montrer comment utiliser cette option Supprimer la colonne dans VBA.
Que fait Supprimer la colonne dans Excel VBA?
Comme son nom l'indique, il supprimera la colonne spécifiée. Pour effectuer cette tâche, nous devons d'abord identifier la colonne à supprimer. La sélection des colonnes à supprimer est différente d'un scénario à l'autre, nous allons donc couvrir certains des scénarios importants et souvent rencontrés dans cet article.
La suppression des colonnes est facile. Tout d'abord, nous devons utiliser la propriété COLUMNS pour sélectionner la colonne, vous trouverez donc ci-dessous la syntaxe de la méthode Column Delete dans VBA.
Colonnes (référence de colonne) .Supprimer
Nous pouvons donc construire le code comme ceci:
Colonnes (2) .Supprimer ou Colonnes («B»). Supprimer
Cela supprimera la colonne numéro 2, c'est-à-dire la colonne B.
Si nous voulons supprimer plusieurs colonnes, nous ne pouvons pas entrer de colonnes. Nous devons référencer les colonnes par des en-têtes de colonne, c'est-à-dire des alphabets.
Colonnes ("A: D"). Supprimer
Cela supprimera la colonne de A à D, c'est-à-dire les 4 premières colonnes.
Comme cela, nous pouvons utiliser la méthode «Supprimer la colonne» dans VBA pour supprimer les colonnes particulières. Dans la section ci-dessous, nous verrons plus d'exemples pour mieux le comprendre. Continuer à lire.
Exemples de méthode de suppression de colonne Excel VBA
Vous trouverez ci-dessous des exemples pour supprimer des colonnes à l'aide de VBA.
Exemple # 1 - Utilisation de la méthode Delete
Supposons que vous ayez la fiche technique, quelque chose comme ci-dessous.
Si nous voulons supprimer la colonne mois «Mar», sélectionnez d'abord la propriété des colonnes.
Code:
Sub Delete_Example1 () Colonnes (End Sub
Mentionnez le numéro de colonne ou l'alphabet. Dans ce cas, c'est soit 3, soit C.
Code:
Sous Delete_Example1 () Columns (3). End Sub
Utilisez la méthode Delete.
Remarque: vous n'obtiendrez pas la liste IntelliSense pour sélectionner la méthode Delete. Tapez simplement "Supprimer"Code:
Sub Delete_Example1 () Columns (3) .Delete End Sub
Ou vous pouvez entrer l'adresse de la colonne comme ceci.
Code:
Sub Delete_Example1 () Columns ("C"). Delete End Sub
Exécutez ce code à l'aide de la touche F5, ou vous pouvez exécuter manuellement et voir le résultat.
Les deux codes feront le même travail de suppression de la colonne mentionnée.
Si nous voulons supprimer plusieurs colonnes, nous devons les mentionner dans l'alphabet. Nous ne pouvons pas utiliser les numéros de colonne ici.
Si nous voulons supprimer les colonnes 2 à 4, nous pouvons passer le code comme ci-dessous.
Code:
Sub Delete_Example1 () Columns ("C: D"). Delete End Sub
Run this code manually through the run option or press the F5 key. This will delete the columns “Feb,” “Mar,” and “Apr.”
Example #2 - Delete Columns with Worksheet Name
The above is an overview of how to delete columns using VBA code. However, that is not the good practice of deleting columns. Without referring the worksheet name, it is dangerous to blindly delete the column.
If you have not mentioned the worksheet name, then whichever sheet is active, it will delete columns of that sheet.
First, we need to select the worksheet by its name.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Select End Sub
After selecting the sheet, we need to select the columns. We can also select the columns by using the VBA RANGE object as well.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Select Range("B:D").Delete End Sub
This will delete the columns B to D of the worksheet “Sales Sheet.” For this code, it doesn’t matter which is active. Still, it will delete the mentioned columns of that sheet only.
We can also construct the VBA code in the single line itself.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Range("B:D").Delete End Sub
This also deletes the columns “B to D” without selecting the worksheet “Sales Sheet.”
Example #3 - Delete Blank Columns
Assume you have data that has alternative blank columns like the below.
So, delete every alternative column we can use the below code.
Code:
Sub Delete_Example3() Dim k As Integer For k = 1 To 4 Columns(k + 1).Delete Next k End Sub
Run this code using the F5 key or manually. Then, it will delete all the alternative blank columns, and our data will look like this.
Exemple # 4 - Supprimer les colonnes de cellules vides
Maintenant, regardez cet exemple. Dans certaines situations, nous devons supprimer la colonne entière si l'une des cellules vides se trouve dans la plage de données. Considérez les données ci-dessous pour un exemple.
Toutes les cellules de couleur jaune sont vides. Donc ici, mon exigence est de supprimer toutes les colonnes de cellules vides. Le code ci-dessous fera cela.
Code:
Sub Delete_Example4 () Range ("A1: F9"). Sélectionnez Selection.SpecialCells (xlCellTypeBlanks) .Select Selection.EntireColumn.Delete End Sub
Laissez-moi vous expliquer ce code ligne par ligne.
Nos données sont là de A1 à F9, donc d'abord, je dois sélectionner cette plage, et le code ci-dessous le fera.
Plage ("A1: F9"). Sélectionnez
Dans cette plage de cellules sélectionnée, je dois sélectionner les cellules vides. Donc, pour sélectionner une cellule vide, nous avons besoin d'une propriété de cellules spéciale, et dans cette propriété, nous avons utilisé le type de cellule comme vide.
Selection.SpecialCells (xlCellTypeBlanks) .Select
Ensuite, il sélectionnera toutes les cellules vides, et dans la sélection, nous supprimons toute la colonne de la sélection.
Selection.EntireColumn.Delete
Donc, notre résultat final ressemblera à ceci.
Partout où il a trouvé la cellule vide, il a supprimé la colonne entière de ces cellules vides.
Vous pouvez télécharger cette colonne de suppression Excel VBA ici - Modèle de colonne de suppression VBA
