ExcelVBA 合并多个工作簿指定区域成总表
网友提问：
我个人的建议，如果现成的代码您能直接用，最好。如果不能直接用，有的时候（我说的是有的时候）改比写还麻烦（这种情况可能不适合新人）。有一双鞋是47码的，但是我穿44码的，你能帮我改一下不？我估计你送我一双鞋，远比改一下要省事。代码都是针对需求写的，需求变了，代码可能从头开始思路就变了。而且写代码的人每次思路都不一样，思路都一样的那是学英语。好比，我三年前问您Power怎么发音，三年后再问您，答案肯定是一样的。但是代码不一样，同样一个需求，三年前您的方法和三年后的方法肯定不同，如果一样了，那这个人代码可能是抄的。
ExcelVBA第一季的代码为了把它写活，才会考虑方方面面，您现在的需求是将它写固定，那些简单了。有改的时间，不如自己写一个。
我有一个文件夹，里面有三个工作簿
其中李四工作簿，只有一张工作表
其中王五工作簿，有两张工作表
其中张三工作簿，有三张工作表
代码如下，不算Sub 和 End Sub 我写了11行（其中Next占用了两行），回复网友时，我在WC摸鱼......
代码第2~4行，FSO对象，AccessVBA第三季笔记09 也可以使用ExcelVBA第二季讲的DIR函数。
第5行代码打开工作簿。
第6行代码遍历工作表。
第7行代码如果我写代码的这个空工作表中的A1单元格是空的，就把打开工作簿的那张表的表头复制过来。
第8行确定我写代码这个表的最大行。
第9行将每个工作表的指定区域复制到我写代码这个工作表已经使用行的下一行。
如果想取消屏幕刷新，请把以下两句分别加在Sub shishi()的下一行和End Sub的上一行
如果不想保留格式，只想复制数值，详见ExcelVBA笔记9.12
如果想使用选择粘贴，详见ExcelVBA笔记16.5
ExcelVBA合集：https://www.bilibili.com/video/BV1rt4y1a72y
