如何向现有工作表添加新列并为其命名？

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"))

如果您有一种自动查找数据的方法（即将英国与雇主 ID 相匹配），那么您可以在 VBA 中执行此操作