toda - insertar un caracter en una posicion excel

Cómo agregar una nueva columna a una hoja existente

Question

Supongamos que tengo la hoja de trabajo a continuación:

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

¿Cómo puedo insertar una nueva columna llamada "Loc", incluidos sus datos?

Empid EmpName Loc Sal
1 david uk 100
2 jhon us 200
3 steve nj 300

Answer 1

Por tu pregunta según lo preguntado

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

Si tuviera una forma de buscar automáticamente los datos (es decir, hacer coincidir el Reino Unido con la identificación del empleador), podría hacerlo en VBA

Answer 2

Utilice el método de inserción de rango, por ejemplo

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