Excel每頁加標題+合并單元格跨頁調(diào)整
Attention: 本分享基于win7系統(tǒng)和office 2013。?
做一些內(nèi)容很多的跨頁表格時，經(jīng)常遇到如圖1所示的問題。表格的第一頁中有一列是合并單元格，但是該合并單元格是跨頁顯示的，導(dǎo)致第一頁的末尾部分和第二頁起始部分缺少表格框線，且合并單元格中的內(nèi)容“?@陪我去圣所叭?”也只在第一頁顯示，不會出現(xiàn)在第二頁的合并單元格中。
?太丑了！??！作為一個合格的打工人，解決這個問題勢在必得！
Step 1：給表格每一頁添加列名。一般這種跨頁的表格，需要在每一頁添加表頭（也就是列名）。在圖2“頂端標題行”處添加需要在每一頁開頭出現(xiàn)的標題。預(yù)覽沒問題后就點確定。
Step 2：復(fù)制如下代碼至記事本，將記事本保存為后綴為.bas的文件。（如“test.bas”）
Sub test()
Dim P, MergeAddress As String, PageCell As Range, MergeValue
ActiveWindow.View = xlPageBreakPreview
For Each P In ActiveSheet.HPageBreaks
Set PageCell = Cells(P.Location.Row - 1, ActiveCell.Column)
If PageCell.MergeCells And Not Intersect(Cells(P.Location.Row, ActiveCell.Column), PageCell.MergeArea) Is Nothing Then
MergeAddress = PageCell.MergeArea.Address
MergeValue = PageCell.MergeArea(1).Value
PageCell.MergeArea.UnMerge
Range(Range(MergeAddress)(1), PageCell).Merge
With Range(PageCell.Offset(1, 0), Cells(Split(MergeAddress, "$")(4), ActiveCell.Column))
.Merge
.Value = MergeValue
End With
End If
Next
ActiveWindow.View = xlNormalView
End Sub
Step 3：“文件”→“選項”→“自定義功能區(qū)”，在“開發(fā)者選項”前打勾，這樣該選項就會出現(xiàn)在Excel頂端的菜單欄。
Step 4：點擊“Visual Basic”
Step 5：選中表格所在的sheet，單擊右鍵，選擇“導(dǎo)入文件”，選擇剛才新建的“test.bas”文件。
Step 6：回到Excel表格，點擊“宏”。
Step 7：選中“test.bas”文件，并點擊“執(zhí)行”。即可完成對跨頁合并單元格的設(shè)置。
Step 8：接著需要選中含有合并單元格的一列，為單元格設(shè)置框線，點擊預(yù)覽對表格進行檢查調(diào)整即可。顯示效果如圖8。
Tips：有的經(jīng)驗分享會建議在圖2中勾選“網(wǎng)格線”選項。但我并不推薦。因為這個選項可能會使一些不需要出現(xiàn)網(wǎng)格線的地方出現(xiàn)網(wǎng)格，且不方便調(diào)整。
Good Luck 打工人?。‥nd）
