本帖最后由 lancanyinzkk 于 2020-3-14 16:42 编辑
EXCEL全套报表VBA流程化操作需求（要求较高）
求助各位高手！大致的整套操作流程和内容已经较为详细的表述如下（附件 word文档即下述需求的内容），每个月都按照这样被虐一遍，快崩溃…… 本人已经在牵头上报建系统了，但是不知猴年马月才能完成，这期间依旧得维持这样的操作。短时间实在是无计可施，不得以来求助各位高手帮忙。 另，由于内容牵涉公司内部内容，因此对附件做了加密。目的是希望真心且有把握完成的高手前来拯救（可以直接联系我要密码）。若您只是纯粹想看看，或并非救助仅作把玩的，请绕道，谢谢。
一、附件说明压缩包1：每个月收到的37个excel工作薄，分别以填报地点+上报年份月份命名； 压缩包2：根据37份上报报表，按照不同类型区分的工作薄 压缩包3：根据37份上报报表，按照不同类型区分的清单 注：压缩包2、3即求助所需要最终交付的文件以及达到的效果
二、结构以及操作1.每份地方上报工作薄以填报地点+上报年份月份命名。 2.每份地方上报工作薄中，有12张不同类型的工作表； 每个类型的工作表原则上都具有统一的格式（表头、表尾），不同类型的工作表格式不同。各地填报内容位于表头和表尾之间，数量不一。 3.操作：每月收齐37份报表后，先按照不同类型，将37张工作表根据地方命名后移动到相应类型的工作薄中（即将压缩包1中每个工作薄中同样名称的工作表重命名为地方名，移动到压缩包2相应类型的工作薄中） 结果：形成压缩包2中以“类型+年份月份”命名的工作薄，每个工作薄中有根据地方命名的同类型不同地方的工作表n张。（各地的上报内容并不一定包含各个类型，换句话说，即每个类型的工作薄含有的地方工作表个数小于等于37，大于0） 4.操作：不同类型的工作薄，分别进行去除表尾、替换表头、首列替换地方名/首列新增地方名列的操作。 同时，针对每个工作表的格式问题做统一的清理。 结果：每个类型的工作薄中，所有工作表保持统一格式 5.操作：依据每个类型工作薄，分别将按照地方命名的各工作表内容粘贴到同一同新建工作表中。同时，进行整体格式的调整。 结果：根据每个类型形成包含37各地方在内的类型全清单。 6.操作：根据各个类型全清单，形成地方维度的透视表。同时与上月相应的类型报表做核对。 7.操作：各个校准一致的类型透视表，使用VLOOKUP，按照地方将相应每列的总数匹配到总表中。 结果：形成既定格式的一张工作薄。该工作薄中，每个类型单独形成一张工作表，每个工作表中均根据地方划分，其对应类型清单中的某几列字段为筛选维度，分别填写对应的地方总数。 注：上述第二大点的操作中，第6、7点可以我自己完成，其余为求助的主要内容。 注：地方上报的报表中，经常会有大量冗余空行空列以及隐藏文本框，导致单个文件巨大。所以我一般会先对文件进行清理后，再操作。
三、批量操作可能遇到的问题这套报表的整体情况描述如上，我找了许多的已有的代码，均无法满足我的整套需求，主要碰到的问题如下： 1.每个类型的工作表表头、表尾不同，都含有交叉的合并单元格。（即举例：表头为5行30列，其中有横向的合并单元格、有纵向的合并单元格、有单独的单元格，互相交织；同时，表尾情况同表头） 2.每个类型的工作表中，各个地方的填报内容位于表头表尾之间，数量不同且存在空行。 3.各地的工作薄中，工作表的名称有少量的自行改动后形成不一致的情况。（如，汉字相同，但多了空格；或者表名中少了、多了几个字） 4.部分地方的工作薄中的某几个工作表，表头或者表尾存在少一行多一行的情况。（即举例，格式设定是从工作表的第7行还是填报内容，上面6行都是表头。但是有地方的工作表上报上来是从第5行开始填报内容的，标题行少了一行） 5.各地的工作薄中，不同类型的工作表存在不同地方的插入列。 6.各地的工作薄中，存在不同地方的隐藏。 7.不同类型的工作表中，某几列字段有特定的单元格格式要求。比如，有些必须是文本形式，有些必须是日期，有些必须是会计不含单位格式。（前期为了制作清单，在全部清理好的基础上使用了找来的VBA代码，但是发现同类型的数据是都放在一张工作表上了，但是特定列的特定格式都没有了。） 8.不同类型的工作表中，有部分列需要进行逻辑校验，希望能通过代码在填报人填写时就予以报错提示。（例如：每个地方上报的报表中的工作表“其他**业务诉讼”中，每一行的O列-V列只能存在一个单元格有数值，且数值必须等于1）
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2020-3-14 15:41
楼主
