如何在 Excel 中选择每隔 N 列？

例如，您有一个包含数百列数据的大型工作表。现在，您需要复制每第 3 列的数据并将其粘贴到另一个新工作表中。逐一手动选择每隔 N 列将非常耗时，是否有更简便的方法来完成此操作呢？

使用 VBA 选择每隔 N 列

使用 Kutools for Excel 选择每隔 N 列

使用 VBA 选择每隔 N 列

除了使用 VBA 代码外，似乎没有其他简单的方法可以解决这个问题。请按照以下步骤操作：

1. 突出显示要选择每隔 N 列的区域。

2. 单击 开发工具 > Visual Basic 或按 Alt+F11，将弹出一个新的 Microsoft Visual Basic for applications 窗口，单击 插入 > 模块 将以下代码输入到模块中：

Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
    Set rng = InputRng.Cells(1, i)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireColumn.Select
End Sub

3. 然后点击 按钮运行代码，将会弹出一个提示框，提醒您选择一个要处理的区域。参见截图：

4. 单击 确定，然后在另一个弹出对话框中输入间隔数。在此情况下，在框中输入 3。参见截图：

5. 单击 确定。现在它会在所选区域内选择每第 3 列。参见截图：

备注：您可以指定第二个 KutoolsforExcel 对话框中的数字以满足您的需求。

但有时，您需要选择两个间隔为两列的列。上述代码无法工作，您应该怎么做？

使用 Kutools for Excel 选择每隔 N 列

Kutools for Excel：拥有 300 多个便捷的 Excel 插件，可免费试用 30 天且无任何限制。立即获取。

借助 Kutools for Excel，您可以按特定间隔选择特定数量的列。请按照以下步骤操作：

1. 单击 Kutools > 选择 > 选择间隔行/列。

2. 一个 选择间隔行/列 对话框将出现。然后点击 按钮选择您需要的范围，选择 列 从 选择部分，并在 间隔 和 列 下拉列表中指定您想要的数字，这里我们选择每第 3 列中的两列。参见截图：

3. 单击 确定。它将在所选范围内选择两个间隔为两列的列。参见截图：

备注：如果您在弹出对话框中勾选了“选择整列”，它将选择整个工作表中的整列。参见截图：

相关文章：

• 在 Excel 中选择每隔一行或第 N 行
• 复制每隔一行
• 删除每隔一行
• 隐藏每隔一行