在Excel中更改值時如何插入分頁符？

假設我有一個單元格區域，現在，當A列中的值發生變化時，我想在工作表中插入分頁符，如左圖所示。 當然，您可以一個接一個地插入分頁符，但是有沒有一種快速的方法可以根據一列的更改值一次插入分頁符？

使用VBA代碼更改值時插入分頁符

借助功能強大的功能更改值時插入分頁符

使用VBA代碼更改值時插入分頁符

以下VBA代碼可以幫助您根據列數據的更改在下面插入分頁符，請執行以下操作：

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 鍵以運行此代碼，當A列中的數據更改時，所有分頁符都已插入到工作表中。請參見屏幕截圖：

借助功能強大的功能更改值時插入分頁符

安裝後 Excel的Kutools，請這樣做：

1。 點擊 庫工具 > 格式 > 區分差異，請參見屏幕截圖：

2。 在彈出 按關鍵列區分差異 對話框中，進行以下操作：

• 選擇要使用的數據范圍和鍵列；
• 選擇 分頁符 來自 選項 框。

3。 然後點擊 Ok 按鈕，分頁符已根據值更改插入到範圍中，請參見屏幕截圖：

立即下載並免費試用Excel的Kutools！

更多相關文章：