摘要：
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 '每页的序号 ... 阅读全文
摘要：
Sub CreateTables() Dim Wb As Workbook Dim OpenWb As Workbook Dim Sht As Worksheet Dim Rng As Range Dim Arr As Variant Dim i As Long Const HEAD_ROW As Long = 2 Dim EndR... 阅读全文