如何使用 VBA 在 Excel 中插入一列？

Question

请帮助我使用 vba 在 excel 中插入一列的代码。这就是我正在做的 -

Sheet1.Range("A:A").EntireColumn.insert

Answer 1

我认为您弄错了Sheets属性，这对我有用：

Sheets(1).Range("A:A").EntireColumn.Insert

Answer 2

你应该清楚地说明你想做什么； 你面临什么类型的问题。

但是，您应该尝试下面的代码。 希望这会有所帮助

Sheet1.Range("A:A").EntireColumn.Insert Shift:=xlToRight

插入新行或新列时，请确保引用整行或整列。 检查 A 列右侧是否有边缘单元格。这可能是导致问题的原因。

Answer 3

该代码对我来说很好用。

Sheet1.Range("A:A").Insert也适用。 Range("A:A")已经在引用EntireColumn 。

有几件事要检查它是否不适合你：

1. 您正在引用名为Sheet1的 object。 这绝对是您要更改的工作表的代号吗？ 确保您了解工作表名称和代号之间的区别。 您可以尝试通过工作表的名称来引用它： Worksheets("Tabname").Range("A:A")...
2. 工作表是否受到保护？ 如果是的话，那会给你一个错误。
3. 电子表格最右边的列中是否有任何数据？ 这也会导致错误，因为 Excel 不知道如何处理它。 如果您不是 100% 确定，请 select 整个工作表最右侧的列并点击删除以删除可能导致问题的任何内容。
4. 最后，您可以手动插入一列吗？ 即 select 最左边的列，[右键单击]和[插入]？

Answer 4

Sub TryMe()
  Columns(1).Insert
End Sub

另外，这是一个非常笼统的问题。 如果你可以谷歌一些东西并在制作问题并将其发布到 SO 上所需时间的一小部分时间内弄清楚，只需谷歌它。 如果您的问题非常独特，并且在使用 Google 遇到多个死胡同之后，请询问 SO 社区。 我用大约 1 秒的 Google 搜索找到了下面的 3 个链接。

https://www.automateexcel.com/vba/insert-row-column/

https://excelchamps.com/vba/insert-column/

https://www.educba.com/vba-insert-column/