当列b更改值时，Excel开始新的页面打印

b列改变时是否有任何function或方法开始新的页面打印？

例如，随着列b从David更改值到Robert开始一个新的页面。

Answer 1

我不确定你的意思，但是当用户更改B列单元格时，下面的代码将打印工作表

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Columns.Count = 1 Then ThisWorkbook.ActiveSheet.PrintOut End If End Sub 

编辑后评论

所以这就是你所需要的：

 Sub PaginateBasedOnColB() Dim lngRowsCount As Long Dim lngCounter As Long lngRowsCount = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count MsgBox lngRowsCount For lngCounter = 1 To lngRowsCount If ThisWorkbook.ActiveSheet.Cells(lngCounter, 2) <> _ ThisWorkbook.ActiveSheet.Cells(lngCounter + 1, 2) Then ThisWorkbook.ActiveSheet.HPageBreaks.Add (ThisWorkbook.ActiveSheet.Range("B" & lngCounter + 1)) End If Next lngCounter End Sub