VBで小ネタですけど

[必要ページ数] = -Int(-( [全行数] / [ページ内行数] ))