将单一工作薄依工作表名拆分为独立工作薄

xueyu3314 · 发表于 2023-1-9 16:39

要求：
1.一个工作薄，内含工作表最多时大约60个左右；
2.将全部工作表，以工作表为文件名，拆成独立的工作薄；
3.重点要求：表格的格式不能变，内有公式，需要把公式的值转成数值．
4.拆分后的表格存放的位置最好可以选择．

方方格子的功能可以符合要求，Ｅ灵也可以，但都收费，我只需要这一个功能．前两天在论坛找了一下，没找到完全一样的，自己折腾了几天，还是搞不定，特来求助.

白桦1990 · 发表于 2023-1-9 22:02

这是论坛里的大神做的，你试试。

liulang0808 · 发表于 2023-1-9 22:18

论坛的案例很多
楼主可以检索参考下
如果还有疑问，上传模拟附件吧
就是表格拷贝，然后区域重新赋值。。。。

xueyu3314 · 发表于 2023-1-10 08:51

感谢白桦和版主的帮助！用白桦提供的工具，加了一行
sht.UsedRange.Value = sht.UsedRange.Value
解决了

3190496160 · 发表于 2023-1-10 09:34

2楼的附件就是我的作品，是可以满足你的需求，但是如果还需要把公式转换为值，还得稍微修改一下才行

ykcbf1100 · 发表于 2023-1-10 10:17

没有附件谁也帮不了你。

xueyu3314 · 发表于 2023-1-10 11:06

谢谢各位回复，用二楼的加了一行转换成数值，解决了，谢谢各位帮忙

白桦1990 · 发表于 2023-1-10 17:41

xueyu3314 发表于 2023-1-10 08:51
感谢白桦和版主的帮助！用白桦提供的工具，加了一行
sht.UsedRange.Value = sht.UsedRange.Value
解决了[ ...

5楼的作者感谢大神

		自动登录	找回密码
密码			免费注册

[求助] 将单一工作薄依工作表名拆分为独立工作薄