有没有一种方法可以在Excel中使用VBA根据列值的变化插入分页符，而不是从标题开始？

Sub InsertPageBreaks()
    Dim lastRow As Long
    Dim currentCellValue As Variant
    Dim previousCellValue As Variant
    
    ' 获取最后一行
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 初始化前一列的值
    previousCellValue = Cells(2, 1).Value
    
    ' 从第二行开始遍历每一行
    For i = 2 To lastRow
        ' 获取当前列的值
        currentCellValue = Cells(i, 1).Value
        
        ' 如果当前列的值与前一列的值不同，则插入分页符
        If currentCellValue <> previousCellValue Then
            Rows(i).PageBreak = xlPageBreakManual
        End If
        
        ' 更新前一列的值
        previousCellValue = currentCellValue
    Next i
End Sub