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

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中执行此操作