如何在 Excel 中於數值變更時自動插入分頁符?

假設您的工作表中有一份資料清單,每當 A 欄的數值變更時,都需要插入分頁符(如左側螢幕截圖所示)。手動逐一插入分頁符不僅費時,處理大型資料集時更是效率低落。所幸,有多種實用方法能高效地根據數值變更自動插入分頁符。本文將詳細介紹多種解決方案,涵蓋使用與不使用 VBA 或增益集的情境,協助您輕鬆選出最適合任務的方法。
當數值變更時,使用 VBA 程式碼插入分頁符
若您希望在指定欄位的數值每次變更時自動插入分頁符,使用 VBA 是實現此需求的有效方式。此方法特別適合熟悉 Excel 巨集、並偏好以自動化處理作業的使用者。
1. 按住 ALT + F11 鍵,即可開啟 Microsoft Visual Basic for Applications 視窗。
2. 點擊插入> 模組,並將下列程式碼貼到模組視窗中。
VBA 程式碼:當數值變更時插入分頁符:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
Next I
End Sub
3. 按下 F5 鍵執行此程式碼,Excel 將自動於 A 欄資料每次變更處插入分頁符。請參閱下方螢幕截圖:

此 VBA 方法極具彈性,非常適合處理大型資料集或重複性任務。然而,若您不熟悉 VBA,或所處環境限制巨集的使用,請考慮以下替代方案。
當數值變更時,使用強大功能插入分頁符
透過 Kutools for Excel,當您在所選欄位的數值變更時,即可快速插入分頁符,並同步執行其他格式設定動作,例如插入空白列、新增框線,或自動填充背景色!若您經常需要處理此類資料格式設定,這項功能將大幅提升效率,而且完全無需撰寫或理解任何程式碼。立即下載 Kutools for Excel,一鍵體驗高效辦公!

1. 在您的工作表上,前往 Kutools 索引標籤,然後按一下格式 > 標記列內內容變化。請參閱螢幕截圖:

2. 在標記列內內容變化對話方塊中:
- 選取您要處理的數據範圍,並指定關鍵欄位(通常是用來偵測數值變更的欄位)。
- 選擇位於選項之下的分頁符。

3. 點擊確定按鈕,Kutools 將自動在指定欄位數值每次變更的位置插入分頁符。下方螢幕截圖顯示執行結果:

Kutools for Excel-透過超過 300 項必備工具全面強化 Excel,讓您的工作更快速、更輕鬆,並運用 AI 功能實現更聰明的資料處理與高效生產力!立即取得
此方法格外友善且實用,特別適合不想撰寫程式碼或管理巨集的使用者。此外,也能輕鬆應付超出分頁符範疇的各種類似格式需求。
使用公式助手欄位識別應插入分頁的位置
您可以運用 Excel 公式標示欄位中數值變更的位置,進而精準指引手動分頁符的插入點。雖然標準公式無法直接插入分頁符,卻能輕鬆識別需要分頁的位置。若您偏好不使用巨集或增益集,且處理的是小型至中型資料集,此方法尤其實用。
適用情境:當您需要視覺指引來手動插入分頁符、又不希望使用任何自動化功能,或身處無法使用巨集與增益集的環境時,此方法將是您的理想選擇。
例如,假設您的資料位於 A 欄,並從第 2 列開始。若要找出數值變更的位置:
1. 在 B2 儲存格中輸入下列公式:
=A2<>A1 此公式會將 A 欄中的每個儲存格與上方的儲存格進行比較。當 A2 的數值與 A1 不同時,就會顯示 TRUE,表示數值已變更!
2. 向下複製公式,即可套用至其他列!
現在,B 欄中的每個 TRUE 皆表示 A 欄的數值已變更。您可手動在每個標示變更的列前後立即插入分頁符,輕鬆區隔變動內容!
或者,您也可以使用 IF 公式,讓提示更加清晰明瞭!請在 B2 儲存格中輸入下列內容:
=IF(A2<>A1, "Insert Break", "") 如此一來,當數值變更時會顯示「插入分頁」,方便您快速進行視覺掃描。
- 提示:標記完成後,請檢閱您的工作表,並在每個標記位置依需要插入分頁符(版面配置>分隔設定>插入分頁符)。
優點:無需程式碼或增益集,輕鬆適用於小型至中型資料集。
缺點:需手動插入分頁符,處理極大型清單時可能較為繁瑣。
更多相關文章:
- 在 Excel 中,當儲存格數值變更時插入醒目列區域
- 如果您的工作表中有一份包含重複數值的清單,並希望根據 A 欄(其儲存格數值會如以下螢幕截圖所示而變動)來突顯對應的整列,其實只需運用條件格式功能,就能快速又輕鬆地完成這項任務。
- 當另一欄的數值變更時遞增編號
- 假設 A 欄包含一組數值,您希望在 A 欄數值變更時,B 欄的數字自動重設為 1 並開始遞增;換句話說,只要 A 欄的數值維持不變,B 欄就會持續累加 1,一旦 A 欄數值改變,計數便重新從 1 開始,如左側螢幕截圖所示。在 Excel 中,您可以透過以下方法達成此效果。
- 當另一欄的數值變更時加總儲存格
- 當您在 Excel 工作表中操作時,有時需要根據另一欄的資料群組來加總儲存格。例如,我希望在 A 欄的資料變更時,自動加總 B 欄中的訂單數量,以取得如下結果。您會如何在 Excel 中實現這個需求?
- 在 Excel 中,當數值變更時插入空白列
- 假設您有一個資料範圍,希望在數值變更時自動於資料之間插入空白列,以分隔同一欄中連續相同的數值,如下方螢幕截圖所示。本文將為您介紹幾種實用技巧,輕鬆達成此目標。
- 在 Excel 中,當儲存格數值變更時執行巨集
- 一般而言,在 Excel 中可透過按下 F5 鍵或點擊「執行」按鈕來執行 VBA 程式碼。但您是否曾想過,當儲存格數值變更時自動執行特定巨集?本文將分享幾個實用技巧,協助您輕鬆在 Excel 中實現這項功能。
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用