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

Question

我想使用VBA代码编写一个宏，这些代码在一个子过程中插入新列&他们的标题。我了解如何在VBA中插入新列。但是，将新列插入名为（Sheet1）&的工作表中的最佳方法是什么？

1. 插入新列插入列B，C，d
2. 名称的新列

原始值

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

Boston（Col A）Nashville（Col B）Miami（Col C）San Franc isco（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