添加分页符在Microsoft Excel中使用VBA排序的数据
在本文中,我们将根据特定条件创建一个宏以插入分页符。
原始数据包含代理程序明智的数据,其中包括代理程序名称,客户名称,电话号码和电子邮件ID。
在打印时,我们希望特定代理的数据在不同的页面上。因此,我们希望在每个座席数据的末尾插入一个分页符。
逻辑解释
我们创建了“ 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]