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

Question

我有一个由多个分页符分隔的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 

NB：从要拆分的单元格，不计Col标题，如果国家名称在第2行到第30行的D列中，则可以选择D3到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