如何将新列添加到现有工作表

Question

假设我有以下工作表:

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

如何插入名为"Loc"的新列,包括其数据？

Empid  EmpName   Loc   Sal

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

Answer 1

例如,使用范围中的插入方法

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

Answer 2

对于你问的问题

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

如果您有办法自动查找数据(即将uk与雇主ID匹配),那么您可以在VBA中执行此操作