定义两个分页符之间的范围excel VBA

我有一个由多个分页符分隔的Excel表格 – 列C中的每个更改（列C代表特定的ProjecID）。

表格的每一行都包含一定数量的花费。 该金额存储在Q列中（注意 – 对于每个项目，可以有多个行 – Q列中的金额）。

取决于每个项目（列C）的小计数量（列Q）是<0还是> 0，应该在该范围内执行不同的操作。

问题 – 如何遍历这些范围（两个分页符之间）以检查小计金额并对每个范围内的行执行适当的操作？

先谢谢你

Answer 1

以下代码删除所有先前的页面，然后你可以设置一个范围，

Sub PageBreak() Dim CellRange As Range Dim TestCell As Range Set CellRange = Selection For Each TestCell In CellRange ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakNone If TestCell.Value <> TestCell.Offset(-1, 0).Value Then ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakManual End If Next TestCell End Sub 

注意：从你想要分割的区域中select单元格，不要计算列标题，就好像国家名称在第2行到第30行的D列中一样，你可以selectD3到D30的范围。

Answer 2

尝试这个。 它从所有工作表中删除分页符。 希望能帮助到你。

  Sub PageBreak() Dim ws As Worksheet, tws As Worksheet Set tws = ActiveSheet For Each ws In Worksheets ws.Activate ActiveWindow.View = xlPageBreakNone Next ws tws.Activate End Sub