在VBA中插入列及其列标题（一步）

Question

我想用VBA代码写一个宏，插入新的列和＆amp;他们在一个子程序中的标题。我了解如何将新列插入VBA。但是将新列插入名为（Sheet1）＆amp;的工作表中的最佳方法是什么？给他们起个名字。

1. 将新列插入列B，C，D
2. 命名新列

原始值

波士顿（Col A）芝加哥（Col B）洛杉矶（Col C）西雅图（Col D）

波士顿（Col A）纳什维尔（Col B）迈阿密（Col C）旧金山（Col D）芝加哥（Col E）洛杉矶（Col F）西雅图（Col G）

Answer 1

With Sheets("Sheet1").Columns(2).Resize(, 3)
    .Insert
    .Offset(, -3).Rows(1).Value = Array("Nashville", "Miami", "San Francisco")
End With