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

【问题标题】：Inserting Columns along with their Column Headers in VBA (one step)在 VBA 中插入列及其列标题（一步）
【发布时间】：2016-09-15 04:38:56
【问题描述】：

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

原始值

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

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

【问题讨论】：

【解决方案1】：

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

【讨论】：