Excel VBA：选择包含数据的列旁边的列，然后插入3列

这根本不起作用，给了我一个错误。任何帮助都将不胜感激

---

谢谢

您可以用一行代码替换整个代码：

Sub New
ActiveSheet.Range(“c9”).End(xlRight).Offset(1,0).Select
Selection.Insert Shift:xlToRight
Selection.Insert Shift:xlToRight
Selection.Insert Shift:xlToRight
End Sub

第一部分

ActiveSheet.Range（“C9”）.Offset（0，1）

选择单元格“C9”右侧的单元格

第二部分

.Resize（，3）.entireclumn.Insert

在右侧一次插入3列（而不是重复同一行3次）

如果要查找第9行中最后一列的数据，如

Range（“C9”）.End（xlRight）

，请使用以下代码：

ActiveSheet.Range("C9").Offset(0, 1).Resize(, 3).EntireColumn.Insert

---

您可以将整个代码替换为一行：

Sub New
ActiveSheet.Range(“c9”).End(xlRight).Offset(1,0).Select
Selection.Insert Shift:xlToRight
Selection.Insert Shift:xlToRight
Selection.Insert Shift:xlToRight
End Sub

第一部分

ActiveSheet.Range（“C9”）.Offset（0，1）

选择单元格“C9”右侧的单元格

第二部分

.Resize（，3）.entireclumn.Insert

在右侧一次插入3列（而不是重复同一行3次）

如果要查找第9行中最后一列的数据，如

Range（“C9”）.End（xlRight）

，请使用以下代码：

ActiveSheet.Range("C9").Offset(0, 1).Resize(, 3).EntireColumn.Insert

---

你应该解释…“根本不起作用，并给出一个错误”，而不描述你希望它做什么，或者给出的错误不允许任何人帮助。你在

c9

周围有“智能引号”，而不是普通的引号。对不起，我应该更具体一些。我试图在最后一列数据旁边添加一列。我的代码试图首先在某一行中找到数据的最后一部分，然后在其旁边添加列。您应该解释…“根本不起作用，并给出错误”，而不描述您希望它做什么，或者给出的错误不允许任何人帮助。您有“智能引号”大约是

c9

而不是普通的。对不起，我应该说得更具体一些。我试图在最后一列数据旁边添加一列。我的代码试图首先在某一行中找到数据的最后一部分，然后在其旁边添加列。嗨！谢谢你的帮助！这正是我需要的！非常感谢。你好谢谢你的帮助！这正是我需要的！非常感谢。