come aggiungere una nuova colonna a un foglio esistente

Question

Supponiamo che io ho il foglio di lavoro di seguito:

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

Come posso inserire una nuova colonna denominata "Loc", compresi i suoi dati?

Empid EmpName Loc Sal 

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

Answer 1

metodo Usa inserto di gamma, per esempio

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

Answer 2

Per la vostra domanda come richiesto

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

Se tu avessi un modo per automaticamente la ricerca dei dati (cioè corrispondenti uk contro datore di lavoro id), quindi è possibile farlo in VBA