灵活拆分工具之二

始终如一0927 · 发表于 2020-10-19 07:51

老师好，我用拆分工具拆分为多个工作簿后，打开每个工作簿发现都是页面是直接显示为总表的最后一行，要鼠标滑到最上面能看到拆分后的数据，能否实现直接打开就能看到数据呢？感谢老师！

始终如一0927 · 发表于 2020-10-19 08:46

始终如一0927 发表于 2020-10-19 07:51
老师好，我用拆分工具拆分为多个工作簿后，打开每个工作簿发现都是页面是直接显示为总表的最后一行，要鼠标 ...

老师好，我解决了，哈哈，加了如下的内容：
ActiveWindow.SmallScroll Down:=-1000
Range("B5").Select
感谢老师的工具！

winnie879 · 发表于 2020-12-3 10:01

你好，10几个文件中有几个是不成功的呢？

3190496160 · 发表于 2020-12-3 10:23

winnie879 发表于 2020-12-3 10:01
你好，10几个文件中有几个是不成功的呢？

无头无尾的话，不明白你的意思

winnie879 · 发表于 2020-12-3 10:55

我是用你的代码拆分的，发现有些文本代有标点符号“."，在拆分的过程中出现上面图片的问题，要手动把文件改名字才能显示为EXCEL文件，请问有什么方法可以更好地处理吗？

3190496160 · 发表于 2020-12-3 11:47

winnie879 发表于 2020-12-3 10:55
我是用你的代码拆分的，发现有些文本代有标点符号“."，在拆分的过程中出现上面图片的问题，要手动把文件改 ...

这是基本的额常识，文件名称中肯定是不能有点号的，因为，系统会判断为点号后面就是文件后缀了，
只有在代码中用replace把点号替换为空或者其他的字符

winnie879 · 发表于 2020-12-3 11:58

3190496160 发表于 2020-12-3 11:47
这是基本的额常识，文件名称中肯定是不能有点号的，因为，系统会判断为点号后面就是文件后缀了，
只有在 ...

请帮忙修改一下代码，谢谢

3190496160 · 发表于 2020-12-3 20:50

winnie879 发表于 2020-12-3 11:58
请帮忙修改一下代码，谢谢

专门为你修改代码？那就不是没有通用性了，就不是工具了，

wang-way · 发表于 2021-2-11 00:07

shaowu459 发表于 2020-4-25 21:20
保留原表格式的，我自己做过一个，就是获取拆分的列不重复值后，把总表复制，逐个重命名，命名后把那个表里 ...

Union有时不靠谱，这个思路比较稳妥。

wzxiao123 · 发表于 2022-1-21 11:01

大神，再请教一下，
            For Each ss In .Shapes
                  ss.Delete
            Next ss
这段代码的意思是删除表格的形状吗？不太明白代码的意义，不是保留原表的所有格式吗？麻烦大神赐教。谢谢！

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

[分享] 灵活拆分工具之二