tedzheng13的博客

以下VBA用以汇总相同格式的工作表.Option ExplicitSub Collection()'Collection Data into TTL worksheetDim Sh As Worksheet, SQL$, m%, Conn As ObjectDim MaxClm&, TitleArr()'++++++++++++++++++++++++++++++++++++++++

Mark:此程序的关键记算来源于http://gundumw100.iteye.com/blog/760402,非本人原创。Option Explicit'/增加随机产生固定数'|产生随机数的数独'|来源：http://gundumw100.iteye.com/blog/760402'|原理'| 1.随机产生1-9之间数字'| 2.检查所处行、列、3X3区域