灵活的多工作表合并或汇总（Flexible multiple sheet merging or aggregation）.docVIP

灵活的多工作表合并或汇总（Flexible multiple sheet merging or aggregation） 子yy() 模糊i为整数，k为整数，r为整数 定义为整数，W为整数，如表 作为对象的暗D 昏暗的arr()，arr2() 集D = CreateObject（“脚本。词典》） 床单（“汇总”） 我= 1。范围（“把”）。端（xltoleft柱）。 s＝s + 1 D（。细胞（3，i）。值）= S记录汇总最大列数以及列名 下一个 每张床单 如果嘘叫“汇总”然后 设置RNG =。范围（“A1：IV1”）。发现（sh.name，，1） 如果RNG。偏移（，1）。值=“√”然后 R = sh.range（“A65536”）。端行（xlUp）。 如果r＞1，那么 AR = sh.range（A1：F和R）的下面有如果AR（1，w）”然后所以范围可以稍许大一点 我= 2，UBound（AR） k＝k＋1 ReDim Preserve arr（1，1，K） W = 1，UBound（AR，2） 如果AR（1，w）”然后ARR（D（AR（1，w）），k）= AR（I，W） 下一个 下一个 最后如果 最后如果 最后如果 下一个 范围（“A17”）。调整（UBound（ARR，2），6）=应用。转置（ARR）的这一段是合并 集D = CreateObject（“脚本。词典》） K = 0 我= 1，UBound（ARR，2） 如果不d.exists（ARR（1，i））然后 k＝k＋1 D（ARR（1，i））= K ReDim Preserve arr2（1～UBound（ARR），1 K） W = 1，UBound（ARR） arr2（W，D（G（1，i）））= ARR（W，我） 下一个 其他的 W = 2，UBound（ARR） arr2（W，D（G（1，i）））= arr2（W，D（G（1，i）））+ ARR（W，我） 下一个 最后如果 下一个 范围（“A4”）。调整（UBound（arr2，2），6）=应用。转置（arr2）的这一段是汇总 结束 端子 借用office2008的代码，试试看是否合乎要求： 子yy() 声明i为整数，K为整数，R为整数，LC为整数 定义为整数，W为整数，如表 作为对象的暗D 昏暗的arr()，arr2()，BRR 集D = CreateObject（“脚本。词典》） 每张床单 如果嘘叫“汇总”然后 SH LC =。范围（“IV1”）。端柱（xltoleft）。 BRR =范围。（。（1, 1）、细胞。细胞（1，LC）） 对于i = 2到LC - 1 D（BRR（1，i））=“” 下一个我 结束 最后如果 接下来的SH LC = D + 2表头列数计数 application.screenupdating = false “以下4行写表头，其中16及后面的17可以根据实际重新设置 细胞（3, 1）=“姓名”：细胞（3，LC）=“合计” 细胞（3, 2）。调整（1、d.count）= d.keys 细胞（16, 1）=“姓名”：细胞（16，LC）=“合计” 细胞（16, 2）。调整（1、d.count）= d.keys d.removeall 下次继续出错 集D = CreateObject（“脚本。词典》） 床单（“汇总”） BRR =范围。（。（3, 1）、细胞。细胞（3，LC）） 对于i = 1到LC D（BRR（1，i））=我记录汇总最大列数以及列名 下一个 2 =。范围（“IV1”）。端柱（xltoleft）。 BRR =范围。（。（1, 1）、细胞。细胞（1，2）） 我= 1到2 - 1步骤2 如果BRR（1，I + 1）=“√”然后 如果Len（表（BRR（1，i））。名称） 0 如果错误＝0，那么 床单（BRR（1，i）） R =。范围（“A65536”）。端行（xlUp）。 如果r＞1，那么 范围（单元格（1, 1），单元格（R，LC）） 对于j = 2到r k＝k＋1 ReDim Preserve arr（1～LC，1 K） w＝1到LC 如果AR（1，w）”然后ARR（D（AR（1，w）），k）= AR（J，W） 下一个W 下J 最后如果 结束 最后如果 最后如果 最后如果 下一个我 范围（“A17”）。调整（。usedrange.rows.count，LC）清晰。 范围（“A17”）。调整（UBound（ARR，2），LC）=应用。转置（ARR）的这一段是合并 范围（“A16”）。调整（UBound（ARR，2）+ 1，LC）。borders.linestyle = xlcontinuous 范围（“A16”）。调整（1，LC）。interior.colorindex =