如何在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列中的數據發生變化時，所有分頁符都已插入到工作表中。請參見截圖：

使用強大功能在值改變時插入分頁符

1. 點擊Kutools > 格式 > 標記列內內容變化，請參見截圖：

2. 在彈出的標記列內內容變化對話框中，進行以下操作：

• 選擇您要使用的數據區域和關鍵列；
• 從選項框中選擇分頁符。

3. 然後點擊確定按鈕，分頁符已經根據值的變化插入到範圍中，請參見截圖：

更多相關文章：