Excel VBA 批量插入分页符：根据托号快速分隔表格

使用 VBA 代码可以轻松实现 Excel 表格中根据 A 列不同托号批量插入分页符的功能，从而方便打印和查看。以下是具体步骤：

打开 Excel 表格，按下“Alt+F11”键打开 Visual Basic Editor。
选择“Insert”菜单，点击“Module”新建一个模块。
在模块中输入以下代码：

Sub InsertPageBreaks()
Dim i As Long
Dim lastRow As Long
Dim currentShipment As String
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lastRow
    If Range("A" & i).Value <> currentShipment Then
        currentShipment = Range("A" & i).Value
        ActiveSheet.HPageBreaks.Add Before:=Range("A" & i)
    End If
Next i
End Sub

点击“Run”按钮或按下“F5”键运行代码。
运行完成后，A 列中不同托号位置将自动插入分页符，方便打印和查看。

注意：

代码中的“ActiveSheet”指的是当前激活的工作表，如需对其他工作表进行操作，请修改代码中的“ActiveSheet”为对应的工作表名。
代码默认操作 A 列，如需操作其他列，请修改代码中的“Range("A" & i)”为对应的列。