在本文中,我们将根据特定条件创建一个宏以插入分页符。

原始数据包含代理程序明智的数据,其中包括代理程序名称,客户名称,电话号码和电子邮件ID。

ArrowRawData

在打印时,我们希望特定代理的数据在不同的页面上。因此,我们希望在每个座席数据的末尾插入一个分页符。

ArrowOutput

逻辑解释

我们创建了“ InsertingPagebreak”宏来插入分页符。我们在第一列中对2个连续单元格的值进行比较,以查找与特定代理相关的最后一个单元格并插入分页符。

代码说明

ActiveSheet.ResetAllPageBreaks上面的代码用于删除工作表中插入的所有先前的分页符。

如果Cells(LngRow,LngCol).Value <> Cells(LngRow-1,LngCol).Value然后上面的代码用于比较第一列中的连续单元格。

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:= Cells(LngRow,LngCol)

上面的代码用于在指定的单元格之前插入分页符。

请遵循以下代码

Sub InsertingPagebreak()

'Declaring variables

Dim LngCol As Long

Dim LngRow, MaxRow As Long

'Clear existing page breaks

ActiveSheet.ResetAllPageBreaks

LngCol = 1

'Getting row number of last cell

MaxRow = Range("A11").SpecialCells(xlCellTypeLastCell).Row

'Looping through all the rows starting from thirteenth row

For LngRow = 13 To MaxRow

'Comparing values in cell of two consecutive rows for the specified column

If Cells(LngRow, LngCol).Value <> Cells(LngRow - 1, LngCol).Value Then



'Inserting page break

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(LngRow, LngCol)



End If



Next LngRow

End Sub

如果您喜欢此博客,请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信,请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]