关于HPageBreaks属性和Phonetic函数

Function isLastPageBreakReal(ByVal ws As Worksheet, Optional offsetrow = 40, 
	Optional offsetcol = 20)
    With ws
        Set zzz = .HPageBreaks
        If zzz.Count = 0 Then
            isLastPageBreakReal = False
            Exit Function
        End If
        Set yy = zzz(zzz.Count)
        rowyy = yy.Location.Row
        Set ran1 = ws.Range(ws.Cells(rowyy,1),ws.Cells(rowyy + offsetrow,1+offsetcol))
        contentyy = Trim(WorksheetFunction.Phonetic(ran1))
        isLastPageBreakReal = (contentyy = "")
    End With
End Function

HPageBreaks属性：

分页模式下，HPageBreaks相当于蓝色的水平分页线。一般不包括最后一条，
即HPageBreaks.count=page数-1。比如某页只有page1，那么HPageBreaks.count=0。
第n个HPageBreak用HPageBreaks(n-1)表示。HPageBreak.Location.Row可以获得该蓝线下第一行第一个单元格的行数。
需要注意一个’bug’：
如果某sheet有2个HPageBreak(hpb)，各自的Location.Row分别是11,22，最下面的蓝线(不是HPageBreak)在第33行，此时有3个page。如果把最下面的蓝线拖到hpb1以下，hpb2以上(包括hpb2)，页面只有2个page，但依旧有2个HPageBreak(hpb)，且Location.Row还是11,22。所以如果通过HPageBreaks.count+1计算page数，这时会多出一个page。代码中用了取巧的方法解决这个问题，通过判断HPageBreak.Location为起点40*20大小的单元格区域是不是全是空来判断最后一个HPageBreak是不是最下面的蓝线。

Phonetic函数：

设置一个range对象ran，WorksheetFunction.Phonetic(ran)可以拼接ran里单元格的字符串。
比如A1=a,B1=1(数字),C1=c，拼接会得到ac；如果修改B1的格式成字符串，就得到a1c。