统计是一个很繁杂的工作，Excel制表过程也是一个十分困难是事件 ， 如何用一种简单的办法让统计更有高效呢！办法是有的 ， 通过VBA可大大地将数据有规律地组合起来 。
【Excel统计表格的设计与实现思路，这样做不再面对海量数据】本节介绍如何利用VBA对数据表的统计 ， 显示和打印操作 。
上图为要进行数据统计的工作表，也可以自己定义工作表 。
下图为统计工作表，利用VBA编码来对工作表进行数据管理，按不同字段进行一个数据统计，然后自动生成下表 。
实现这个过程我们使用了下面的功能窗口，此窗口设置了一些控件 ， 根据这些控件，可以实现选择，计算，打印等操作 。
本窗体中是将统计的数据表结果进行一个合理化显示，也可以选择不同年份来进行统计，然后自动将统计结果显示出来，这样，我们就是不必要在工作表中进行操作，直接在这里查看就达到统计的目的了 。
下面我们了解一下重点代码，如果没有代码，统计就是一个很麻烦的事情，不仅要对工作表进行选择还要在表中查找不同的统计项目 。
主程序：
Public Sub xCount(sYear As String)ReMonth sYear '刷新月统计ReMachine sYear '刷新设备统计ReUnit sYear '单元统计ReIsTrue sYear '完成率统计End Sub很简单，主程序分别调用四个过程，也就是要进行统计的四个项目 。
设备统计过程：ReMachine()
打印效果 ， 下图为最终打印结果，可以清楚地看到 ， 数据表统计完成后的样子 。
这样就得到了一份完整的统计结果 。
实际在操作中，只需要点几点鼠标 ， 至少数据是如何被计算的，根本不用去管 ， 这就是办公自动化的一大优点 。
把人从复杂的劳动当中解脱出来 。
代码当中，我们运用了数组操作方式，遍历方法，单元格Range的操作方法，还运用了一个Application.WorksheetFunction.Sum()函数 ， 对统计进行求和 。
整体思路就是要对单元格定位，然后取值，再求和计算 。
有兴趣可实践操作一下，本示例是设备维护管理当中的一个小分支，统计页的制作 。
完整的设备维护管理功能在视频里可查找观看 。
欢迎关注、收藏
---END---