如何在 Excel 中選取每隔一列或第 n 列？

作者Xiaoyang修改日期2024-09-03

使用工作表時，有時需要選取每隔一列或第 n 列，以便進行格式設定、刪除或複製。雖然可以手動選取，但若資料長達數百列，這種方式就顯得效率不足。以下提供實用技巧，助您快速完成這項任務。

使用 VBA 選取每隔一列或第 n 列

在此範例中，我將透過 VBA 程式碼，以兩個間隔選取一整列，步驟如下：

1. 反白標示您要選取每隔一列或第 n 列的範圍。

2. 按一下開發人員 > Visual Basic，此時將開啟新的 Microsoft Visual Basic for Applications 視窗；請接著點選插入 > 模組，並將下列程式碼貼入模組中：

Sub EveryOtherRow()
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 row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
    Set rng = InputRng.Cells(i, 1)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireRow.Select
End Sub

3. 接著按一下按鈕執行程式碼，系統將彈出對話方塊供您選取範圍。請參閱螢幕截圖：

用於選取資料範圍的 VBA 程式碼

4. 按一下確定，在此範例中，我在另一個彈出對話方塊中輸入 3 作為間隔列數。請參閱螢幕截圖
輸入間隔列數

5. 按一下確定，即可選取每隔兩列（即每第三列）。詳情請參閱下方螢幕截圖：
已選取指定的列

您可在第二個 Kutools for Excel 對話方塊中，依需求調整間隔。

使用 Kutools for Excel 選取每隔一列或第 n 列

使用 VBA 程式碼僅能選取單一列並指定間隔；若您需要同時選取兩列、三列或多列，並設定間隔，Kutools for Excel 可輕鬆又方便地解決此問題！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝免費版 Kutools for Excel 後，請依照以下步驟操作：

1. 按一下 Kutools>Select>Select Interval Rows & Columns……，請參閱螢幕截圖：

按一下 Kutools 的「選取間隔列與欄」功能

2. 在 Select Interval Rows & Columns 對話方塊中，點擊按鈕選取所需範圍，於 Rows 或 Columns 中選擇 Select 區段，並在 Interval of 與 Rows 輸入框中輸入所需數值。請參閱螢幕截圖：

在對話方塊中設定選項

已選取指定的列

注意事項：
1. 若要在選取範圍內每隔一列選取一次，請在「間隔」輸入框中輸入 2，並在 Rows 輸入框中輸入 1.

2. 若您想選取整行內容，可勾選 Select entire rows 選項。
勾選「選取整列」選項以選取整列

相關文章：

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多