求助一键拆分

忘情的城市 · 发表于 2020-8-6 16:07

本帖最后由忘情的城市于 2020-8-8 15:50 编辑

以解决，最佳在14楼

老师好，菜鸟不懂，请帮忙

附件都有的，不知道怎么弄的，没显示，我重新弄了下，每次审核就没了，看这次还在不在

拆分模板.rar (23.11 KB, 下载次数: 6)

zgwei050 · 发表于 2020-8-8 15:41

这是你最终期望的：

拆分模板（忘情的城市）.rar (121.73 KB, 下载次数: 57)

zgwei050 · 发表于 2020-8-6 16:07

忘情的城市
看看这个行不行，又增加改了一句

拆分模板.rar (35.81 KB, 下载次数: 3)

忘情的城市 · 发表于 2020-8-6 16:11

确定了是代码的问题，不知道哪里不行

我把代码新建文本，压缩了，拜谢！

代码.rar (1.01 KB, 下载次数: 15)

liliyao · 发表于 2020-8-6 18:49

具体需求讲一下

liliyao · 发表于 2020-8-6 18:49

你这是打算拆分什么？？？？

金樽空对月 · 发表于 2020-8-6 23:36

忘情的城市发表于 2020-8-6 16:11
确定了是代码的问题，不知道哪里不行

不要只发代码，把原文档一并传上来。

忘情的城市 · 发表于 2020-8-8 11:40

liliyao 发表于 2020-8-6 18:49
具体需求讲一下

老师你好，要求和附件以更新，审核了就没显示，不知啥原因

忘情的城市 · 发表于 2020-8-8 11:41

金樽空对月发表于 2020-8-6 23:36
不要只发代码，把原文档一并传上来。

老师你好，要求和附件以更新，审核了就没显示，不知啥原因

zgwei050 · 发表于 2020-8-8 14:12

本帖最后由 zgwei050 于 2020-8-8 14:34 编辑

修改2处，维持程序原来风格：（1） ar = sh.[a1].CurrentRegion '这句修改为 ar = sh.UsedRange
（2）在工作表操作的程序部分： .Name = k '这句修改为 ActiveSheet.Name = k

zgwei050 · 发表于 2020-8-8 14:33

本帖最后由 zgwei050 于 2020-8-8 19:11 编辑

拆分模板.rar (35.81 KB, 下载次数: 15)

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