KutoolsforOffice — 一套方案,五大工具。事半功倍。

4 在 Excel 中轻松实现添加多列的 4 种方法(分步指南)

作者修改日期

在处理 Excel 数据时,插入一列或多列是常见操作。本教程为您介绍 4 种简便方法(含快捷键),助您快速在所选列的左侧或右侧插入一列或多列。

添加列


视频:添加多列

 
 


使用内置功能插入单列或多列

 
步骤 1:选择要插入的位置及要添加的列数

例如,要在 B 列左侧插入一列,请单击 B 列标题以选中整列;
若要在 B 列左侧插入两列,请单击 B 列标题,然后按住鼠标向右拖动,选中 B 列和 C 列。依此类推,您可根据需要插入任意数量的列。

步骤 2:右键单击以插入列

选中列后,右键单击,在上下文菜单中选择插入

右键单击所选列,然后点击“插入”

:按住 CtrlShift 键,再按下主键盘上的+键,即可执行与“插入”命令相同的操作。

结果:

已插入列

备注:

  1. 选择列后,您也可以转到功能区,点击开始 > 插入,即可快速插入列。
  2. 如果您仅选择了一个区域而非整列,无论使用快捷键还是右键单击“插入”命令,系统都会弹出一个对话框,请选择整列选项,然后单击确定
    选择一个区域,在弹出的对话框中选择“整列”选项
  3. 默认情况下,新增列的格式将与所选区域中最左侧列的格式保持一致。如果您不希望应用该格式,或希望改用所选列的其他格式,可在添加后点击插入选项(新增列右上角将显示一个刷子图标),然后从以下选项中进行选择:
    选择其中一个选项来格式化插入的列
  4. 若需添加多个不相邻的列,请先选中一列,然后按住 Ctrl 键,依次选择其他列,再使用“插入”命令即可一次性添加多列。

快速在右侧或左侧添加指定数量的列

 

在 Excel 中使用内置功能添加多列时,需通过拖动鼠标选择相应数量的列。但借助 Kutools for Excel添加多列工具,只需输入要添加的列数,即可快速在右侧或左侧添加多列。

Kutools for Excel 提供超过 300 项高级功能,简化复杂任务,激发创造力并提升效率。集成 AI 能力,Kutools 以精准自动化处理任务,让数据管理变得轻而易举。Kutools for Excel 的详细信息……         免费试用……
步骤 1:指定添加位置和数量
  1. 右键单击列标题,例如单击“B”以选择 B 列,然后选择添加多列

  2. 指定位置列数,然后点击确定

    右键单击列标题以打开“添加列”对话框,然后设置选项

结果:

在左侧添加多列

在右侧添加多列

备注

  1. “添加到右侧”功能可助您直接在所选列右侧插入多列,操作方式与内置的“插入”命令完全一致。

  2. 要使用插入列功能,您需要先安装 Kutools for Excel,请 立即点击下载,享受 30 天免费试用

在表格中插入一列或多列

 
步骤 1:选择与要插入列数相同的单元格

假设您想在“性别”列左侧插入两列,请跨“性别”和“年龄”列(B2:C2)选择两个单元格。

选择包含要插入列数的单元格

:若只需插入一列,请在表格中选中紧邻目标位置的列中的任意单元格。

步骤 2:右键单击以插入新列

右键单击已选中的单元格,点击上下文菜单中的插入,然后在子菜单中选择表格列于左侧选项(根据需要选择)。

右键单击并选择“表格列 - 左侧”

结果:

已在左侧插入指定数量的列

备注:

  1. 表格支持在最后一列右侧插入一列。在表格中选中最后一列的任意单元格,右键单击并选择“插入”,即可看到右侧表格列选项。
    表格支持在最后一列右侧插入一列

  2. 默认情况下,新增列的格式将与所选列中最左侧列的格式保持一致。

  3. 如果您不希望应用该格式,或希望使用所选列的格式,可以在添加后选择插入选项(添加列的右上角会出现一个刷子图标),然后从以下选项中进行选择:
    从选项中选择一个来格式化插入的列

  4. 使用右侧表格列左侧表格列命令,即可在表格布局内快速添加多列,且不会影响表格外的数据。

  5. 表格不支持添加非相邻的列。


使用 VBA 在所选列右侧插入一列

 

Excel 的内置功能仅支持在所选列的左侧插入多列。若需在所选列右侧添加列,可借助以下 VBA 代码轻松实现。

步骤 1:选择要在其右侧插入列的单元格

选择要在其右侧插入列的单元格

步骤 2:按下 AltF11 键,打开 Microsoft Visual Basic for Applications 窗口,然后依次点击“插入”>“模块”,即可创建一个空白模块。

快捷键 Alt 和 F11 键

点击“插入”>“模块”以创建一个新的空白模块

步骤 3:复制下方 VBA 代码并粘贴到新模块中,然后点击“运行”按钮doc 运行或按 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

将代码复制并粘贴到模块中

结果:

已在所选列右侧插入列

注意:新增的列将采用与所选列相同的格式。