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
结果:
注意:添加的列将与选定列的格式化为相同的格式。