Comment ajouter une nouvelle colonne à une feuille existante

Question

Supposons que j'ai la feuille de calcul ci-dessous:

Empid  EmpName  Sal
1      david     100
2      jhon      200
3      steve     300

Comment puis-je insérer une nouvelle colonne nommée "Loc", y compris ses données?

Empid  EmpName   Loc   Sal

1      david     uk    100
2      jhon      us    200
3      steve     nj    300

Answer 1

Utilisez la méthode d'insertion de la plage, par exemple

Sub InsertColumn()
        Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("C1").Value = "Loc"
End Sub

Answer 2

Pour votre question telle que posée

Columns(3).Insert
Range("c1:c4") = Application.Transpose(Array("Loc", "uk", "us", "nj"))

Si vous aviez un moyen de rechercher automatiquement les données (c.-à-d. Faire correspondre le Royaume-Uni à l'identifiant de l'employeur), vous pourriez le faire dans VBA