使用VBA，新建工作薄，并按条件将“条件指定”的工作表复制到新工作薄中

wofala00766

如标题，在“模板”工作薄中创建VBA，做一个程序，功能如下
1、新建工作薄，暂定名称为“计算书”
2、按条件将“条件指定”的工作表，按照要求的名称复制到新工作薄中。


条件1：“模板”中Sheet 1 中的D列有数字的工作表，移动到新工作薄中，首行除外，
条件2：移动后工作表名称要求为A列和D列数字加上原工作表名称的组合，例如0-2去除效果表、3-2A+O；当相同类型后面的D列只有1时，例如4-1、5-1，则命名省去后面的“-1”，即为4二沉池、5叠螺，并按照A列和D列的组合名称从左到右依次排序，比如0-1、0-2、1-1、1-2、2-1……
条件3：将Sheet 1 工作表复制过去

我自己创建的“模板”里面的工作表顺序（以Sheet 1 列表来看）是逆向的，不是按照从上到下的顺序，如果对程序有障碍可以调整“模板”中已创建工作表的前后顺序。

已手动创建一个示例文件，麻烦哪位大神可以帮忙做一个程序，
学了一段时间VBA，发现如果想做成一件事，还要更长远的学习路程

额外的问题，将来在“模板”的这些工作表里输入函数后，当复制到新建的工作薄中，会不会链接到“模板”工作薄上，那么用INDIRECT函数去指向的话是不是可以避免这种情况呢。


补充内容 (2023-3-9 22:06):
问题解决了，感谢各位，感谢“洋务德雷”

补充内容 (2023-3-9 22:11):
哦对了，今天这里只有“补充”按钮，没有编辑按钮了，不知道上哪归类成“已解决”，如有人指点，将非常感谢。

洋务德雷

没看明白啥意思，说你要实现什么？你主要是想达到什么目标。基础数据在哪里？

liulang0808

建议楼主在附件中举例说明具体怎么操作，需要实现什么。当前的附件跟描述似乎有出入的

wofala00766

洋务德雷 发表于 2023-3-5 23:29
没看明白啥意思，说你要实现什么？你主要是想达到什么目标。基础数据在哪里？

我的想法是，在“模板”里放入所有主流程的计算书，在做某一个项目时，需要哪个主流程，就把哪个主流程的“细化排序”也就是D列上写上编码，然后运行VBA程序，把“细化排序”里面有编码的主流程工作表放到新建的“计算书”文件里。
将来可能有上百种主流程，并且每个类型就有十几种，但每个类型只能用到一两种，用VBA程序一键将想要的计算书放在一起，每次做计算书的时候，就不用翻来翻去复制粘贴了
你会发现，“模板”文件Sheet 1 里主流程的名字，跟其他Sheet的名字是一样的，在D列的“细化分类”里面我写入了几个数字，代表的是需要这几个主流程，数字的大小代表的是这个主流程在这个类型里面的先后顺序，然后“计算书（示例）”文件是手动创建的，意思是根据“模板”里的条件会生成这样的文件。
最后一段可能没有什么帮助，是在“模板”文件Sheet 1的A列是“类型码”，里面写了公式，意思是，在细化排序上有数字时表示需要这种类型，那么这种类型就有编码，就从上一个类型的编码基础上 +1 ，如果细化排序上没有数字，就表示不需要这种类型，那么类型码就为空

wofala00766

liulang0808 发表于 2023-3-6 08:06
建议楼主在附件中举例说明具体怎么操作，需要实现什么。当前的附件跟描述似乎有出入的

大佬看一下回复内容，有哪里有问题的，劳烦指出一下，感谢！

洋务德雷

按照我理解的意思做了一个。不知道理解的对不对。你看一下吧。需要沟通的话，可以加好友V进一步沟通。

wofala00766

洋务德雷 发表于 2023-3-6 22:54
按照我理解的意思做了一个。不知道理解的对不对。你看一下吧。需要沟通的话，可以加好友V进一步沟通。

看了一下，你的VBA程序是根据“模板”文件 Sheet 1 里的列表名称创建了几个Sheet，类型对，名字也对，顺序也对
不过，我给出的那个“模板”文件里的那些Sheet，除了Sheet 1 以外，其他的都是有内容的，不能删掉，这些sheet 就相当于是库，需要哪个就把哪个提出来，连同内容一起提到新建的“计算书”文件里

wofala00766

洋务德雷 发表于 2023-3-6 22:54
按照我理解的意思做了一个。不知道理解的对不对。你看一下吧。需要沟通的话，可以加好友V进一步沟通。

不好意思，我看了一下源文件，“模板”文件上传错了，麻烦再看一下

wofala00766

liulang0808 发表于 2023-3-6 08:06
建议楼主在附件中举例说明具体怎么操作，需要实现什么。当前的附件跟描述似乎有出入的

大佬，明白你意思了，文件传错了，今天才发现，真是该死

洋务德雷

wofala00766 发表于 2023-3-7 07:37
看了一下，你的VBA程序是根据“模板”文件 Sheet 1 里的列表名称创建了几个Sheet，类型对，名字也对，顺 ...

新上传的模板里面的工作表没有看到什么内容。你的这个想法不错。但是做法不是这样的。应该把这些有内容的东西放到一个工作表内。这样沟通太麻烦，如果真的想做，还是加好友吧。我的个人信息里面有我的联络方式V