Excel的内置功能只允许在选定列的左侧添加列,如果您想在选定列的右侧添加一列,可以使用VBA代码来完成此操作。

步骤1:选择一个单元格,其右侧是要插入列的位置

步骤2:按Alt和F11键打开Microsoft Visual Basic for Applications窗口,然后单击“插入”>“模块”以创建一个新的空白模块

步骤3:复制以下VBA代码并将其粘贴到新模块中,然后单击“运行”按钮 或按 F5 键运行代码。Sub InsertToRight()

'Extendoffice20230303

Dim xRg, xRg2 As Range

Dim xC As Long

Set xRg = Application.Selection

xC = xRg.Columns.Count

Set xRg2 = xRg.Columns.Item(xC)

Set xRg2 = xRg2.Offset(0, 1).EntireColumn

xRg2.Insert Shift:=xlToRight

End Sub

结果:

注意:添加的列将与选定列的格式化为相同的格式。