选择同一文件夹下所有工作簿里的指定内容到新的工作簿，并改名中

革力

各位大佬，需要把名称为‘原数据’文件夹里的工作簿依次打开，每一个打开的工作簿里，
选取 B列 到工作簿“模板‘ A列，
选取 D列 到工作簿“模板‘  B列，
选取L列 到工作簿“模板‘  D列，
选取N列 到工作簿“模板  E列，
选取M列 到工作簿“模板‘ G列，
选取E列 到工作簿“模板‘  H列，
选取F列 到工作簿“模板‘  I列，
取相同工作簿名称，放入新文件夹里

ykcbf1100

附件供参考。。。

xlj310

ykcbf1100 发表于 2023-4-17 15:33
附件供参考。。。

看似简单的代码，实则看得出大佬的强大。学习了
b = [{2,4,80,12,14,80,13,5,6}] 用得很妙，

ykcbf1100

xlj310 发表于 2023-4-17 16:41
看似简单的代码，实则看得出大佬的强大。学习了
b = [{2,4,80,12,14,80,13,5,6}] 用得很妙，

如果真能理解，那你对数组还是有一定基础的。

gwjkkkkk

表格统计一下字段，可以用字典来匹配。。。

星语心愿

可不可以直接在原来的工作簿上面操作，删除多余的列就行了呢？

星语心愿

xlj310 发表于 2023-4-17 16:41
看似简单的代码，实则看得出大佬的强大。学习了
b = [{2,4,80,12,14,80,13,5,6}] 用得很妙，

真心请教这段代码的意思。感谢 。

xlj310

星语心愿 发表于 2023-4-18 09:50
真心请教这段代码的意思。感谢 。

b = [{2,4,80,12,14,80,13,5,6}]
这个就是 一个列序号数组，  其中的80列是因为一般用不到80列，搞了一个空值过来占位。
第一个妙处就是把不规则的列赋值做了数组列号，就可以用循环，如果不这样的话，一般就得罗列赋值。代码会显得很长很笨。
这里还有一个妙处是 这个方括号 里的是常量数组。 平常用[a1]这样的表示较多，但定义数组一般是直接arryay(1,2,3,4,5)这样。用方括号也体现了大佬的经验丰富。

ykcbf1100

xlj310 发表于 2023-4-19 11:05
b = [{2,4,80,12,14,80,13,5,6}]
这个就是 一个列序号数组，  其中的80列是因为一般用不到80列，搞了一 ...

理解得比较透彻。
一、80确实是用来占位的，但需要注意的是，因为80列并不存在，所以，运行时会出现错误，所以加了一个容错语句；
二、这个数组的下标是从1开始的，这个不同于Array数组（下标从0开始）。从1开始的好处在于可以和正常列循环并轨。

ykcbf1100

星语心愿 发表于 2023-4-18 09:45
可不可以直接在原来的工作簿上面操作，删除多余的列就行了呢？

那是另一个题目了。