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

假设我有下面的工作表：

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中做到这一点