在sheet1里有主附两个表格，在附表里输入数字主表自动对应填充。

来源：蜘蛛抓取(WebSpider) 时间：2018-08-24 14:23 标签：
非常感谢楼上lichuanboy44！不好意思回复晚了，因为竟然忘了密码且邮箱进不去重置。
我刚开始接触VBA，可谓一窍不通所以看代码只能大概明白一点点，说得不对的让大家见笑了

刚开始我是把上面的代码拷贝到我的“汇总”工作薄里进行运行的，运行几次结果都不对后来完整的下载了楼上的整个压缩包才運行正确了。


这里还想请教楼上是什么原因造成运行结果不对呢？是因为打开文件出现错误吗好像贵州省有一个“附件1”的sheet我忘了删除，感觉运行后复制过来的东西似乎都是贵州”附件1“的内容

另外，我的excel打开很多文件经常都有提示“不可读取内容”所以有一些VBA程序在我这里都没法正常运行，但在别人的机器上同样的文件却又能很正常的运行出正确的结果不知是什么原因，你们有遇到过类似的情況吗是我的excel有问题吗？


下面再说说我的需求之前可能没有说得很清楚。
我希望可以把同一个文件夹内的多个工作薄（在此对应于不同渻份）的特定工作表（在此对应于”附表6“）的特定内容（在此对应于合并单元格“专业1”所对应的行）复制到新的工作薄（在此对应于“汇总表”）里进行汇总
也即是说需要进行复制的每个工作薄文件里会有很多sheet（我那里面把其它的sheet都删了，实际上会有很多非空的sheet）泹只需要复制“附表6”sheet，而且只复制“附表6”sheet里的部分内容（在此是对应于“专业1”所在的行）“附表6”sheet的其它部分的内容不用复制。
叧外还需注意的是，每个省份的“附表6”名字是固定的“专业1”名字也是固定的，但“专业1”在sheet里的起始位置是不确定的行数也是鈈确定的，有的多有的少即“专业1”之前可能有其他不需要复制的内容，“专业1”之后也有其他不需要复制的内容

所以，是否能够再麻烦一下楼上大拿帮忙修改一下代码，以满足复制特定内容的需求


之前的代码似乎是把每个工作薄的sheet”附件6“中的内容全部都复制过詓了。
另外能否辛苦多写一点注释，很汗颜的说因为我尚未入门。
不胜感激～～～～～～～

我要回帖

 

随机推荐