如何在 Excel 中於數值變更時自動插入空白列？

作者Xiaoyang修改日期2024-08-21

假設您有一組資料，希望在數值變更時自動於資料之間插入空白列，以分隔同一欄中連續相同的數值（如下方截圖所示）。本文將為您介紹幾種實用技巧，協助您輕鬆達成此目標。

使用「小計」功能在數值變更時插入空白列

使用強大功能在數值變更時插入指定數量的空白列

使用輔助欄位在數值變更時插入空白列

使用 VBA 程式碼在數值變更時插入空白列

使用「小計」功能在數值變更時插入空白列

透過小計功能，您可依照下列步驟，在數值變更時於資料之間插入空白列：

1. 選取您要使用的資料區域。

2. 按一下資料> 小計以開啟小計對話方塊，在小計對話方塊中，請進行下列設定：

1：選取您要根據其數值變更來插入空白列的欄位名稱，位於「每次變更時」區段中；

2：選擇「計數」於「使用函數」下拉清單中；

3：在「加總至」清單方塊中，勾選您要插入小計的欄位名稱

3. 接著按一下確定，系統便會在不同產品之間插入小計列，且分級顯示符號會出現在表格左側，如截圖所示：

4. 然後點擊大綱符號頂端的數字「2」，即可僅顯示小計列。

5. 接著選取包含小計的資料範圍，並按下 Alt+;快速鍵，即可僅選取可見列，如截圖所示：

6. 僅選取可見列後，按下 Delete 鍵，即可輕鬆移除所有小計列！

7. 接著點選其他儲存格，再依序返回資料> 取消群組> 清除大綱，即可移除大綱，如截圖所示：

8. 此時分級顯示符號已一次性清除，您可看到在數值變更時，資料之間已自動插入空白列，如截圖所示：

9. 最後，您可以根據需求刪除 A 欄。

使用強大功能在數值變更時插入指定數量的空白列

若您覺得上述方法繁瑣，這裡為您介紹一款實用工具——Kutools for Excel 的標記列內內容變化功能，可在儲存格數值變更時，快速輕鬆地插入分頁符、空白列、下邊框或填充顏色！

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

提示：若要使用此標記列內內容變化功能，請先下載 Kutools for Excel，即可輕鬆快速套用該功能！

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

1. 點擊 Kutools> 格式> 標記列內內容變化，如截圖所示：

2. 在標記列內內容變化對話方塊中，請執行下列操作：

選取您要使用的數據區域，然後選擇您要依據哪個關鍵列來插入空白列；
接著在選項區段中勾選空白行選項，並輸入您想要插入的空白列數量。

3. 接著按一下確定按鈕，即可在儲存格數值變更時，自動插入指定數量的空白列，如截圖所示：

立即點擊下載 Kutools for Excel，免費試用！

使用輔助欄位在數值變更時插入空白列

透過輔助欄位，您可先插入公式，再套用查找和替換函數，最後於數值變更處插入空白列。請依照以下步驟操作：

1. 在空白儲存格 C3 中輸入公式 =A3=A2，並在 D4 儲存格中輸入公式 =A4=A3，如截圖所示：

2. 接著選取 C3:D4，並拖曳填滿控點至您要套用這些公式的範圍，儲存格中就會顯示 TRUE 或 FALSE，如截圖所示：

3. 接著按下 Ctrl + F 以開啟查找和替換對話方塊，在彈出的對話方塊中，於尋找目標文字方塊（位於）尋找頁籤）輸入 FALSE，並按一下選項按鈕以展開對話方塊，再從搜尋範圍下拉清單中選擇值，如截圖所示：

4. 點擊全部尋找按鈕後，按下 Ctrl + A 即可一次選取所有搜尋結果，所有 FALSE 儲存格便會如截圖所示被全選：

6. 關閉查找和替換對話方塊後，可透過按一下開始> 插入> 插入工作表列 來插入空白列，此時空白列已根據 A 欄數值變更處自動插入，如截圖所示：

7. 最後，您可以根據需要刪除輔助欄位 C 和 D。

使用 VBA 程式碼在數值變更時插入空白列

若您已厭倦上述方法，這裡提供一段程式碼，可協助您一次性在數值變更處插入空白列。

1. 按住 ALT + F11，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：在數值變更時插入空白列

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. 接著按下 F5 鍵執行此程式碼，系統將彈出提示框，讓您選取要依據哪一欄資料，在數值變更時插入空白列，如截圖所示：

4. 接著按一下確定，系統便會根據 A 欄數值的變更處自動插入空白列。

最佳 Office 生產力工具

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