Note: The other languages of the website are Google-translated. Back to English

如何在Excel中選擇每隔一行或第n行?

有時,當我們使用工作表時,我們需要選擇工作表的每隔一行或第n行以進行格式化,刪除或複制。 您可以手動選擇它們,但是如果有數百行,則此方法不是一個好的選擇。 這裡有一些技巧可以幫助您。

使用VBA選擇每隔一行或第n行

用Kutools for Excel選擇每隔一行或第n行好主意3


使用VBA選擇每隔一行或第n行

在此示例中,我將選擇兩個間隔的一行。 使用VBA代碼,可以完成以下操作:

1.突出顯示要每隔一行或第n行選擇的範圍。

2.Click 開發人員 > Visual Basic中,一個新的 適用於應用程序的Microsoft Visual Basic 將顯示一個窗口,單擊 插入 > 模塊,然後將以下代碼輸入到模塊中:

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.然後點擊 文檔乘法計算 3 按鈕運行代碼。 並彈出一個對話框供您選擇範圍。 看截圖:



4。 點擊 OK,在這種情況下,我在另一個彈出對話框中輸入3作為間隔行。 看截圖

5。 點擊 OK,並選擇了每三行。 看截圖:

您可以在第二秒中根據需要更改時間間隔 Kutoolsfor Excel 對話。


用Kutools for Excel選擇每隔一行或第n行

使用VBA代碼,您只能選擇具有指定間隔的一行,如果需要選擇具有指定間隔的兩,三或其他行,則 Excel的Kutools 可以幫助您輕鬆方便地解決此問題。

Excel的Kutools, 與以上 300 方便的功能,使您的工作更加輕鬆。 

免費安裝 Kutools for Excel,請執行以下操作:

1。 點擊 庫工具 > Select > Select Interval Rows & Columns…,請參見屏幕截圖:

doc每隔一行選擇8

2。 在裡面  Select Interval Rows & Columns 對話框,單擊文檔替換範圍名稱-7 按鈕選擇所需範圍,然後選擇 Rows or Columns Select 部分,然後在 Interval of 輸入框和 Rows 輸入框。 看截圖:

doc每隔一行選擇9

doc每隔一行選擇10

筆記:
1.如果您需要選擇選項中的每隔一行,請在“輸入間隔”框中輸入2,在“輸入間隔”中輸入1。 Rows 輸入框。

2.如果要選擇所需的整行,可以檢查 Select entire rows 選項。
doc每隔一行選擇11


使用Kutools for Excel對每隔一行或第n行進行著色

如果要在每隔一行陰影範圍內使數據看起來更加突出,如下面的屏幕截圖所示,則可以應用 Excel的KutoolsAlternate Row/Column Shading 功能以快速處理工作。

doc每隔一行選擇12
doc向下箭頭
doc每隔一行選擇13

免費安裝 Kutools for Excel,請執行以下操作:

1.選擇要間隔陰影的單元格範圍,單擊 庫工具 > Format > Alternate Row/Column Shading.
doc每隔一行選擇14

2。 在裡面 Alternate Row/Column Shading 對話框中,請執行以下操作:

1)選擇要著色的行或列;

2)選擇 Conditional formatting or 標準格式 根據需要

3)指定陰影間隔;

4)選擇陰影顏色。
doc每隔一行選擇15

3。 點擊 Ok。 現在,該範圍已在第n行中加陰影。

如果要刪除陰影,請檢查 刪除現有的備用行底紋 選項 交替的行/列底紋 對話。


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (12)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
剛剛用這段代碼救了我的屁股謝謝! 我的 matlab 決定隨機停止工作,所以我不得不求助於我對 Matlab 並不熟悉的 excel。 這個定義。 幫助。 謝謝。
網站主持人對此評論進行了最小化
我需要選擇多行和固定間隔並移動到另一張表請盡快回答我 
網站主持人對此評論進行了最小化
我正在嘗試在 Excel 2010 中使用 VBA 宏。它只會選擇第 n 行,而不是選擇中的所有行。 如果我再次運行它,它將轉到下一個。 知道我做錯了什麼嗎? 謝謝!
網站主持人對此評論進行了最小化
太棒了。 非常感謝。它完美無缺。我有超過 7000 個數據需要以不同的間隔選擇它們。這個技巧對我來說就像一個奇蹟。thaaaaaaaanks。
網站主持人對此評論進行了最小化
該代碼有一個請求。 是否必須為每第 n 行選擇整行? 它不能只在每 n 行中選擇某些單元格(單元格範圍)嗎? 我不需要每一行的所有信息。 只是每 n 行的某些單元格。
網站主持人對此評論進行了最小化
我進行了以下修改以選擇 30 行 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("輸入行間隔", xTitleId, Type:=1) For i = 1 To InputRng.Rows.Count Step xInterval + 1 設置rng = InputRng .Cells(i, 1).Resize(, 30) '調整為要選擇的列數,在這種情況下為30 If OutRng Is Nothing Then Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Next OutRng.Select '使用 OutRng.EntireRow.Select 選擇整行 End Sub
網站主持人對此評論進行了最小化
很好,謝謝,這很有幫助^_^
網站主持人對此評論進行了最小化
真的很好,謝謝!
網站主持人對此評論進行了最小化
用 Intersect(OutRng.EntireRow, InputRng) 替換 OutRng.EntireRow.Select
網站主持人對此評論進行了最小化
請幫忙。 這看起來很棒,但是當我點擊 > 運行按鈕時,它失敗並顯示“編譯錯誤:未定義子或函數”,並且代碼在“Set rng = InputRng.Rows.Count Step xInterval +1”處停止。
網站主持人對此評論進行了最小化
不確定我能否提供幫助,但是.. 首先,當我將代碼字符串複製到模塊時,“Count”中的“C”和“ount”之間有一個空格。 其次,我在此頁面的其他任何地方都找不到您的代碼,如果問題仍然存在,請提交整個內容。
網站主持人對此評論進行了最小化
我也不明白“Set”和“Step”是如何一起工作的
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護