EXCEL自動插入打印分頁符

操縱excel宏按照前提判定主動插入打印分頁符。操縱下表舉列主動分頁設置。分頁完當作后如圖結果。

東西/原料

1
依次點擊excel“開辟東西”——“Visual Basic”彈出“Microsoft Visual Basic-excel文件名稱”VBA代碼編纂器。
2
在如圖所示位置點鼠標右鍵，選擇“插入”——“模塊”
3
當作功成立了“模塊1”
4
點擊“工程”辦理器中的“模塊1”，在右側的代碼窗口中輸入響應的代碼，
主動插入分頁代碼如下（斜體為注釋）：

Sub Njzhw_FY_AD()
Dim rng As Range
'從4行至25行進行分面操作；
For Each rng In Range("A4:A25")
'以“1”作為分頁前提，在A列中的第4行至25行若是有1則在該處插入打印分頁符
  If rng.Value = "1" Then
'插入分頁符
    ActiveSheet.HPageBreaks.Add rng
  End If
Next
End Sub
5
代碼輸入后，點擊1處的運行按紐，和2處的“運行“按紐。
6
點擊如圖1處可以反回Excel，點擊2處可封閉VBA編纂器。
7
點擊“視圖”功能選項卡的分頁預覽，可以看到分頁環境。從此表闡發，臺區名稱共有5個，每個臺區名稱不跨越1頁，分為了5頁準確。
8
若是分頁不正常或經打消當前打印分頁，可以打消當前分頁，操作如下：
點擊“頁面結構”——“分隔符”——“重設所有分頁符”
9
重設所有分頁符后此表又按默認進行分頁，例表只有1頁，再次分頁點擊“開辟東西”——“Visual Basic”不點竄代碼直接點擊3處的運行按紐，也可以點竄代碼后點擊3處的運行，再次分好頁。