Sub CountingDown() Dim Dic As Object '用于分类统计 Dim i As Long Dim CountDown As Long '每页最多几条信息 Dim x As Long, y As Long Dim Page As Long '页数 Dim Index As Long '每页的序号 Dim Sht As Worksheet Dim StartRow As Long, EndRow As Long '分页的起始行 Dim mRng As Range '模板区…