在兩個分頁符之間定義範圍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