Jak dodać nową kolumnę do istniejącego arkusza

Question

Załóżmy, że mam arkusz poniżej:

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

Jak mogę wstawić nową kolumnę o nazwie „Loc”, w tym jego dane?

Empid EmpName Loc Sal 

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

Answer 1

metoda Zastosowanie wkładki z zakresu, na przykład

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

Answer 2

za pytanie jak zadawane

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

Jeśli miał sposób automatycznie patrząc danych (czyli dopasowanie uk przeciwko identyfikator pracodawcy), możesz to zrobić w VBA