當值改變時，如何在 Excel 中插入空白行？

假設你有一組數據，現在你想在值改變時於數據之間插入空白行，這樣你就可以像下面的截圖一樣將一列中連續相同的值分隔開來。本文將介紹一些技巧幫助你解決這個問題。

使用小計功能在值改變時插入空白行

使用強大的功能在值改變時插入特定數量的空白行

使用輔助列在值改變時插入空白行

使用 VBA 程式碼在值改變時插入空白行

使用小計功能在值改變時插入空白行

通過小計功能，你可以按照以下步驟在值改變時於數據之間插入空白行：

1. 選擇要使用的數據範圍。

2. 點擊 「數據」>「小計」以打開小計對話框，在小計對話框中，請進行以下選項設定：

1: 在「 每次更改時」部分選擇要在其值改變時插入空白行的列名稱；

2: 從「使用函數」下拉列表中選擇「 個數」；

3: 勾選要在「添加小計到」列表框中插入小計的列名稱

3. 然後點擊「確定」，不同產品之間的小計行已經被插入，並且表格左側顯示了分級符號，如下截圖所示：

4. 接著點擊分級符號頂部的數字 2，只顯示小計行。

5. 然後選擇小計範圍數據，並按下 Alt+; 快捷鍵僅選擇可見行，如下截圖所示：

6. 僅選擇可見行後，按下鍵盤上的「刪除」鍵，所有的小計行都已被移除。

7. 然後點擊任意其他單元格，返回「數據」>「取消群組」>「清除大綱」以移除大綱，如下截圖所示：

8. 大綱符號立即被清除，你可以看到當值改變時已在數據之間插入了空白行，如下截圖所示：

9. 最後，根據需要可以刪除 A 列。

使用強大的功能在值改變時插入特定數量的空白行

如果你覺得上述方法麻煩，這裡我要介紹一個有用的工具，Kutools for Excel 的標記列內內容變化功能可以幫助你在單元格值改變時快速輕鬆地插入分頁符、空白行、底邊框或填充顏色。

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

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

2. 在「標記列內內容變化 」對話框中，請進行以下操作：

• 選擇要使用的數據範圍，然後選擇要基於其插入空白行的關鍵列；
• 然後從「選項」部分勾選「空白行」選項，並輸入要插入的空白行數量。

3. 然後點擊「確定」按鈕，如果單元格值改變，則已插入指定數量的空白行，如下截圖所示：

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

使用輔助列在值改變時插入空白行

使用輔助列，你可以先插入公式，然後應用尋找和替換功能，最後在改變的值之間插入空白行。請按以下步驟操作：

1. 在空白單元格 C3 中，請輸入公式 =A3=A2，在單元格 D4 中輸入公式 =A4=A3，如下截圖所示：

2. 然後選擇 C3:D4，並將填充手柄拖動到要應用這些公式的範圍，你將在單元格中得到「能」或「否」，如下截圖所示：

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 列已在數據之間插入了空白行。