Excel如何刪除偶數列？輕鬆掌握3種高效實用技巧

Byadmin

哈囉！是不是常常在處理Excel報表的時候，遇到一些惱人的偶數列，像是每個第二、第四、第六…的欄位，你都想一併把它們刪掉，但是又怕手動刪會不會按錯、或是漏掉哪個，尤其是當報表很長的時候，真是讓人頭昏腦脹！別擔心，今天就來跟大家分享幾個超實用的技巧，讓你輕鬆解決「Excel如何刪除偶數列」這個問題，而且保證速度快、錯誤少，讓你瞬間晉升Excel達人！

我自己也遇過這種情況，有時候拿到一份客戶提供的報表，它本身就設計成一個欄位放標題，下一個欄位放數值，這樣子的格式在分析上很不方便，我常常需要把這些數值欄位（也就是偶數欄位）全部刪掉，只留下標題欄位。剛開始我也是一個一個選取、刪除，眼睛都快脫窗了，而且常常不小心刪錯，或是漏掉，最後又要花更多時間檢查。自從摸索出一些小撇步之後，處理起來就順手多了！

為什麼會需要刪除偶數列？

首先，讓我們稍微釐清一下，為什麼我們常常會有「Excel如何刪除偶數列」的需求呢？最常見的原因通常是資料結構的問題。例如：

  • 資料匯入問題： 有時候從其他系統匯出的資料，為了方便閱讀，會故意將標題和對應的數值分開在兩個欄位，例如 A 欄是「產品名稱」，B 欄是「數量」；C 欄又是「產品名稱」，D 欄是「銷售額」。如果你只需要產品名稱，那 B、D、F…這些偶數欄就需要被刪除。
  • 報表格式調整： 為了讓報表看起來更清晰，有時候我們會將某些資訊（例如：備註、臨時欄位）放在偶數欄位，等到分析完成後，這些欄位就顯得多餘，需要移除。
  • 合併資料前的整理： 在合併多個來源的資料時，有時候不同來源的資料結構會有些微差異，為了讓資料格式統一，可能就需要刪除某些特定的偶數欄位。
  • 視覺化需求： 偶數欄位可能包含一些輔助性的資訊，在製作圖表或簡報時，不需要呈現，因此需要移除，讓視覺焦點更集中。

總之，刪除偶數列的需求，通常都源於資料本身需要進一步的整理與優化，以方便後續的分析、呈現或儲存。

方法一：利用「選取性貼上」與「選擇性篩選」技巧

這個方法是我個人覺得最直覺，也最不容易出錯的方法之一。它結合了「選取性貼上」的強大功能，以及「選擇性篩選」來幫助我們快速定位。

步驟一：複製一份原始資料

在開始任何刪除操作之前，請務必先複製一份你的原始 Excel 檔案或工作表，這就像是製作一個「還原點」，萬一操作失誤，你還有一個備份可以救回來。這點非常重要，千萬不要省略！

步驟二：新增一個輔助欄位

在你的資料範圍的最左邊，假設你的資料從 A 欄開始，我們就新增一個全新的 A 欄。在這個新的 A 欄中，我們會輸入一個簡單的數列，用來標記每一列的奇偶。

例如，在新的 A1 儲存格輸入數字 1，然後在 A2 儲存格輸入數字 2。接著，選取 A1 和 A2 這兩個儲存格，將滑鼠移到 A2 儲存格右下角，當滑鼠游標變成黑色十字時，按住滑鼠左鍵往下拉，直到你原始資料的最後一列。這樣，你的新 A 欄就會從 1 開始，依序填滿 2, 3, 4…。

步驟三：利用「選擇性篩選」找出偶數列

這一步是關鍵！我們需要找出我們要刪除的「偶數列」。

  1. 選取你剛剛新增的輔助欄位（也就是 A 欄）以及你所有原始資料的範圍。
  2. 前往 Excel 功能區的「常用」索引標籤，找到「編輯」群組，點擊「尋找與選取」，然後選擇「選擇性篩選」。
  3. 在彈出的「選擇性篩選」對話框中，選擇「自訂」。
  4. 在「條件」欄位中，點擊下拉選單，選擇「等於」。
  5. 在右邊的「值」欄位中，我們需要輸入找出偶數列的公式。在這裡，你可以輸入：=MOD(ROW(),2)=0
  6. 點擊「確定」。

這個公式的意思是，`ROW()` 會取得當前列的號碼，`MOD(數字, 2)` 會計算這個數字除以 2 的餘數。如果餘數是 0，代表這是偶數列。所以 `=MOD(ROW(),2)=0` 就是要找出所有列號是偶數的列。

你會發現，Excel 會自動選取所有偶數列對應的儲存格。

步驟四：插入一個新的空白欄位

現在，選取範圍內已經是偶數列了。我們可以在選取的任何一列上按右鍵，然後選擇「插入」。Excel 會在你選取的範圍上方插入一個全新的空白欄位，並且自動將你原本資料裡的偶數欄位往右推移。

步驟五：利用「選取性貼上」複製原始資料

這一步才是我們真正要「移動」資料的時刻！

  1. 現在，我們需要選取「原始資料」的部分。請記住，不要選取你剛剛插入的那個空白欄位，我們要選取的是原本的 A 欄到最後一欄，但只包含「奇數列」的資料。
  2. 最快的方法是：先取消選取。然後，你可以在原始資料範圍內隨意選取一個儲存格，然後按 `Ctrl + A` (全選)。接著，你再按住 `Ctrl` 鍵，同時點擊你剛剛插入的那個空白欄位，這樣你選取的範圍就會排除掉那個空白欄位。
  3. 接著，前往「常用」索引標籤，找到「剪貼簿」群組，點擊「複製」。
  4. 現在，將游標移到你新增的那個空白欄位的第一個儲存格（也就是原本 A1 儲存格的位置），然後按右鍵，選擇「選取性貼上」。
  5. 在「選取性貼上」對話框中，選擇「全部」或「值」（如果你只需要數值的話）。最重要的是，在下方勾選「跳過儲存格的空白」。
  6. 點擊「確定」。

你會發現，Excel 會把原始資料中「非空白」的儲存格（也就是你的原始數據）貼到新的位置，而且因為我們在「選取性貼上」時勾選了「跳過儲存格的空白」，它就會自動跳過你之前插入的空白欄位，並將奇數列的資料緊密排列。

步驟六：刪除輔助欄位和多餘的欄位

現在，你的資料已經整理好了，奇數列的資料都在左邊，偶數列的資料（如果你不需要的話）就在右邊。

  1. 你可以直接選取你不需要的輔助欄位（原來的 A 欄），按右鍵，選擇「刪除」。
  2. 然後，選取你不需要的偶數欄位，按右鍵，選擇「刪除」。

這樣，你就成功地刪除了所有的偶數列！是不是感覺像變魔術一樣？

方法二：使用「凍結窗格」與「手動刪除」的高效率組合

如果你覺得方法一有點複雜，尤其是「選擇性篩選」的公式讓你有點卻步，那麼這個方法可能會更適合你。它主要依靠「凍結窗格」來固定你的標題列，讓你更容易手動操作，並且透過一些小技巧來加速刪除。

步驟一：凍結窗格

這個步驟是為了讓你滾動報表時，標題列不會消失。

  1. 選取你想要凍結的下方第一列（通常是資料的標題列下方，也就是你真正資料的第一列）。
  2. 前往「檢視」索引標籤，點擊「凍結窗格」，然後選擇「凍結窗格」。

這樣，當你向下滾動時，你的標題列就會固定住，方便你查看。

步驟二：啟用「篩選」功能

篩選功能是我們這次手動操作的好幫手。

  1. 選取你的資料範圍（包含標題列）。
  2. 前往「資料」索引標籤，點擊「篩選」。

你會發現，你的標題列出現了下拉箭頭，可以讓你進行篩選。

步驟三：針對需要刪除的偶數欄位進行篩選

我們知道要刪除的是偶數列，所以我們需要一個方式來標記偶數欄位，然後再利用篩選來選取。

  1. 在你的標題列旁邊，新增一個臨時的欄位，例如「要刪除？」。
  2. 在這個新欄位下方，利用公式來判斷該欄位是奇數還是偶數。如果你原本的資料是從 A 欄開始，那麼在你的臨時欄位（假設是 B 欄）的第一個儲存格（B1）輸入公式：=MOD(COLUMN(),2)
  3. 將這個公式向右拖曳，直到你所有原始資料的欄位。

這個公式 `MOD(COLUMN(),2)` 會回傳該欄號除以 2 的餘數。所以，偶數欄（例如 B、D、F…）會顯示 0，奇數欄（例如 A、C、E…）會顯示 1。

步驟四：篩選出要刪除的欄位

現在，我們就可以利用剛剛產生的 0 和 1 來篩選了。

  1. 點擊標題列上「要刪除？」欄位的下拉箭頭。
  2. 在下拉選單中，取消勾選「全選」，然後只勾選「0」。
  3. 點擊「確定」。

你會發現，Excel 只顯示那些標記為「0」的欄位，也就是你原本的偶數欄位。

步驟五：手動刪除選取的欄位

現在，所有的偶數欄位都已經被篩選出來，而且是連續顯示的。

  1. 選取其中一個顯示的欄位標題（例如，如果 B 欄顯示 0，你就可以選取 B）。
  2. 按住 `Shift` 鍵，然後點擊顯示的最後一個欄位標題。這樣，所有顯示的欄位都會被選取起來。
  3. 在選取的任何一個欄位標題上按右鍵，選擇「刪除」。

Excel 會將所有選取的欄位一次性刪除。

步驟六：移除篩選並刪除輔助欄位

最後，清理一下。

  1. 回到「資料」索引標籤，點擊「篩選」，移除篩選功能。
  2. 選取你剛剛新增的「要刪除？」輔助欄位，按右鍵，選擇「刪除」。

這樣，你就完成了使用篩選來刪除偶數欄位的操作！這個方法對於欄位數量較多，但又不想寫複雜公式的情況下，非常方便。

方法三：使用 VBA 巨集自動化

對於經常需要處理這類問題，或是資料量極大的使用者來說，寫一個 VBA 巨集是最省時省力的辦法。一旦寫好，只需要點一下按鈕，所有操作就能自動完成，大大提升工作效率。

步驟一：開啟 VBA 編輯器

首先，你需要打開 Excel 的 VBA 編輯器。

  1. 按下 `Alt + F11` 快捷鍵，就可以進入 VBA 編輯器。
  2. 在 VBA 編輯器中，點擊左側專案視窗中的你的 Excel 檔案名稱（通常是 `VBAProject (你的檔案名稱.xlsm)`），然後點擊上方選單的「插入」，選擇「模組」。

這樣，你就會得到一個空白的程式碼編輯區。

步驟二：輸入 VBA 程式碼

在空白的程式碼編輯區，請複製並貼上下面的 VBA 程式碼。這個巨集是用來刪除工作表中所有偶數欄位的。 


Sub DeleteEvenColumns()

    Dim ws As Worksheet
    Dim LastColumn As Long
    Dim i As Long

    ' 設定要操作的工作表
    Set ws = ThisWorkbook.ActiveSheet ' 或指定工作表名稱，例如: Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 取得目前工作表最後一個有資料的欄位
    LastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    ' 從最後一個欄位開始往前迴圈，這樣刪除欄位才不會影響後續的欄位索引
    For i = LastColumn To 1 Step -1
        ' 檢查欄位號碼是否為偶數
        If i Mod 2 = 0 Then
            ' 刪除偶數欄位
            ws.Columns(i).Delete
        End If
    Next i

    MsgBox "偶數欄位已成功刪除！", vbInformation

End Sub

程式碼說明：

  • `Dim ws As Worksheet`: 宣告一個變數 `ws` 來代表我們的工作表。
  • `Set ws = ThisWorkbook.ActiveSheet`: 這行程式碼設定 `ws` 為目前你正在操作的工作表。如果你想指定某個特定的工作表，可以改成 `Set ws = ThisWorkbook.Sheets(“你的工作表名稱”)`。
  • `LastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column`: 這行程式碼會找到你第一列（Row 1）中最右邊有資料的欄位號碼，作為我們迴圈的終點。
  • `For i = LastColumn To 1 Step -1`: 這是迴圈的開始。我們從最後一個欄位開始，一個一個往前檢查（`Step -1` 的意思就是往回走）。這樣做是因為，如果你從前面開始刪除，刪除一個欄位後，後面欄位的編號就會改變，可能會影響到判斷和刪除。
  • `If i Mod 2 = 0 Then`: 這行是判斷。`i` 代表目前的欄位號碼，`Mod 2` 就是計算除以 2 的餘數。如果餘數是 0，代表這個欄位是偶數。
  • `ws.Columns(i).Delete`: 如果判斷是偶數欄位，就執行這行程式碼，將該欄位刪除。
  • `MsgBox “偶數欄位已成功刪除！”, vbInformation`: 當迴圈跑完後，會彈出一個訊息框，告訴你操作已完成。

步驟三：執行 VBA 巨集

程式碼輸入完畢後，你需要執行它。

  1. 回到你的 Excel 工作表。
  2. 按下 `Alt + F8` 快捷鍵，打開「巨集」對話框。
  3. 在清單中選擇你剛剛輸入的巨集名稱，例如 `DeleteEvenColumns`。
  4. 點擊「執行」。

Excel 就會自動執行 VBA 程式碼，幫你刪除所有的偶數欄位。

重要提醒：

  • 在使用 VBA 巨集前，請務必先備份你的檔案！
  • 如果你的工作表名稱不是「Sheet1」，請記得修改程式碼中的 `ThisWorkbook.Sheets(“Sheet1”)` 為你實際的工作表名稱。
  • 如果你只想要刪除某個範圍內的偶數欄位，而不是整個工作表，則需要修改 `LastColumn` 的取得方式，或是加入額外的判斷條件。

對於經常需要處理大量資料的使用者來說，掌握 VBA 巨集絕對是提高效率的關鍵！

總結與選擇

處理「Excel如何刪除偶數列」這個問題，其實有許多不同的方法，選擇哪一種最適合你，取決於你的 Excel 熟悉程度、資料量大小，以及你希望的精確度。

* 如果你是 Excel 新手，或是偶爾才需要處理一次，那麼方法一（選取性貼上與選擇性篩選）或是方法二（凍結窗格與手動刪除）會是比較容易入門的選擇。方法一雖然步驟稍多，但準確性高；方法二則相對直觀，適合對篩選功能比較熟悉的用戶。
* 如果你是 Excel 高手，或是需要頻繁執行這個操作，那麼方法三（VBA 巨集）絕對是你最佳的選擇。一次的投入，換來的是無數次的便利。

記住，無論你選擇哪種方法，最重要的都是「備份」！在進行任何可能影響資料的操作前，請務必複製一份你的檔案，以防萬一。希望今天分享的這些技巧，能幫助你在處理 Excel 資料時，更加得心應手！

常見問題解答 (FAQ)

Q1：我的 Excel 版本比較舊，沒有「選擇性篩選」功能怎麼辦？

別擔心！即使是較舊版本的 Excel，通常也都有「尋找與取代」的功能，你可以利用它來達成類似的效果。

首先，同樣是建立輔助欄位，填入 1, 2, 3… 的數字。然後，在「尋找與取代」的對話框中（快捷鍵 `Ctrl + H`），在「尋找目標」欄位輸入 =* （這代表任何內容）。然後點擊「選項」。在「選項」中，選擇「儲存格內容」並勾選「全形/半形符合」。接著，在「尋找範圍」中選擇「公式」。

這個方法比較複雜，而且不直接。更有效率的做法是，如果你經常需要用到進階功能，可以考慮升級到較新版本的 Excel。不過，如果你真的只需要處理一次，並且不想升級，可以嘗試用「選取性貼上」搭配「排序」功能，也能達到類似篩選的效果。

Q2：我想刪除的不是偶數列，而是每隔 3 列刪除一列，該怎麼辦？

這也是很常見的需求！這時候，我們需要修改判斷奇偶數的公式。

針對方法一（選擇性篩選）：

在「選擇性篩選」的條件公式中，將 `=MOD(ROW(),2)=0` 修改成 `=MOD(ROW(),3)=0`。這樣就會找出所有列號除以 3 餘數為 0 的列（也就是第 3、6、9… 列）。如果你是想刪除第 2、5、8… 列，公式則要改成 `=MOD(ROW(),3)=2`。

針對方法二（篩選功能）：

在新增的臨時欄位中，將公式 `=MOD(COLUMN(),2)` 修改成 `=MOD(COLUMN(),3)`。這樣，偶數欄位（第 2、5、8… 欄）會顯示 2，奇數欄位（第 1、4、7… 欄）會顯示 1，而第 3、6、9… 欄會顯示 0。然後，你就可以針對你想要刪除的餘數（例如 2）來進行篩選。

針對方法三（VBA 巨集）：

在 VBA 程式碼中，將 `If i Mod 2 = 0 Then` 這行修改成 `If i Mod 3 = 0 Then`（如果要刪除第 3、6、9… 欄）或是 `If i Mod 3 = 2 Then`（如果要刪除第 2、5、8… 欄）。

Q3：我刪除偶數列後，發現有些儲存格出現了「#REF!」的錯誤，該怎麼處理？

出現 `#REF!` 錯誤，通常表示你刪除的欄位中，包含了一些指向其他儲存格的公式，而這些儲存格被刪除後，公式就失效了。

這種情況，最好的處理方式是：

  1. 還原操作： 在出現錯誤後，立刻按下 `Ctrl + Z` 還原剛剛的刪除操作。
  2. 檢查公式： 仔細檢查那些包含 `#REF!` 錯誤的儲存格，看看它們的公式是從哪些儲存格參照過來的。
  3. 重新設計： 如果這個公式確實需要參照到被刪除的偶數欄位，那麼你就需要重新思考你的資料結構或公式的邏輯。例如，你可能需要：
    • 在刪除偶數欄位前，先將這些包含公式的儲存格，將公式「複製並貼成值」 (Copy > Paste Special > Values)。這樣公式就會變成純粹的數值，刪除欄位也不會有影響。
    • 或者，調整公式，讓它參照到正確的奇數欄位，或者使用其他邏輯來計算。

在進行任何大規模的刪除操作前，確實檢查是否有重要的公式參照，是避免這個問題的關鍵。

Q4：我只想刪除特定範圍內的偶數列，例如只針對 A 到 M 欄之間的偶數列，該怎麼做？

這也是一個很常見的限制性需求。

針對方法一（選擇性篩選）：

在步驟二建立輔助欄位時，你可以只在 A 到 M 欄之間建立這個輔助欄位。或者，在步驟三進行「選擇性篩選」時，先手動選取 A 到 M 欄的範圍，然後再套用 `=MOD(ROW(),2)=0` 的篩選條件。這樣篩選出來的結果就會只限制在 A 到 M 欄之間。

針對方法二（篩選功能）：

在步驟三新增臨時欄位並輸入公式 `=MOD(COLUMN(),2)` 時，只需要在 A 到 M 欄之間輸入這個公式即可。然後在步驟四篩選時，針對這個臨時欄位進行篩選。

針對方法三（VBA 巨集）：

這部分需要稍微修改 VBA 程式碼。你可以修改 `LastColumn` 的定義，讓它只偵測到 M 欄。例如，可以將 `LastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column` 改成 `LastColumn = ws.Cells(1, “M”).Column`。這樣，迴圈就會限制在 A 到 M 欄之間。

更精確的做法是，你可以先定義一個範圍，然後在這個範圍內進行迴圈。例如： 


Sub DeleteEvenColumnsInRange()

    Dim ws As Worksheet
    Dim TargetRange As Range
    Dim i As Long

    Set ws = ThisWorkbook.ActiveSheet
    ' 設定目標範圍，例如 A 欄到 M 欄
    Set TargetRange = ws.Range("A:M")

    ' 從範圍的最後一個欄位開始往前迴圈
    For i = TargetRange.Columns.Count To 1 Step -1
        ' 檢查欄位號碼是否為偶數
        If i Mod 2 = 0 Then
            ' 刪除偶數欄位
            TargetRange.Columns(i).Delete
        End If
    Next i

    MsgBox "指定範圍內的偶數欄位已成功刪除！", vbInformation

End Sub

透過設定 `TargetRange`，你就可以精確地控制巨集作用的範圍了。

Q5：我嘗試用方法一，但是「選擇性篩選」裡的「自訂」選項出現錯誤，怎麼辦？

有時候，Excel 版本、語言設定，或是你輸入的公式細節，都可能影響「選擇性篩選」功能的正常運作。

首先，請確認你輸入的公式是否完全正確，包括括號、逗號、等號。對於 `MOD(ROW(),2)=0` 這個公式，請確保你的 Excel 版本支援 `MOD` 和 `ROW` 函數。

如果仍然有問題，你可以嘗試以下方法：

  • 重新建立輔助欄位： 確保你的輔助欄位（包含 1, 2, 3… 的數字）是正確填入的。
  • 檢查範圍： 確認你在進行「選擇性篩選」時，選取的範圍包含了你的輔助欄位和原始資料。
  • 手動篩選： 如果「選擇性篩選」的自訂功能確實無法使用，你可以退而求其次，在輔助欄位上直接套用「篩選」。在輔助欄位的下拉選單中，選擇「數字篩選」，然後選擇「等於」，再輸入 0。這樣也能達到篩選出偶數列的效果。
  • 使用 VBA： 如果前面的方法都行不通，又急需解決，那麼 VBA 巨集（方法三）會是最穩妥的選擇，因為它不依賴 Excel 的內建篩選功能，而是直接操作欄位。

總之，遇到問題時，別急著放棄，多嘗試幾種方法，或是檢查細節，通常都能找到解決之道！

Excel如何刪除偶數列