灵活拆分工具之三

renyz1531

我运行时提示：运行时错误“13”，类型不匹配，点击调试：If Len(arr(i, q)) Then

ryolw

感谢楼主分享，非常实用！

beloyu

功能很强大，其实我还想实现一点就是，拆分后可以自动求和，我从别处找了一段代码，但不知道如何与大神的代码链接上，请大神赐教。代码如下：
With ws
      .Cells.Clear
      d(aa).Copy .Range("a1")
      r = .Cells(.Rows.Count, 1).End(xlUp).Row
      .Cells(r + 1, 3) = "合计："  （拆分后紧接着一行的第三列合计）
      .Cells(r + 1, 8).Resize(1, 2).FormulaR1C1 = "=SUM(R4C:R[-1]C)"（从第8列开始自动求和）
      With .Range("a3:j" & r + 1)
        .Borders.LineStyle = xlContinuous
      End With
      .Cells(r + 3, 4) = "审核："
      .Cells(r + 3, 8) = "制表人："
    End With

3190496160

lizhipei78 发表于 2022-4-16 10:38
经测试，能保证列宽，但是行高不能保持原来模板的
我的想法是能保证拆分模板的行列高，页面设置，毕竟拆分 ...

或者你没有真正测试使用，或者你没有下载最新的版本，18楼的版本可以完全保留原工作表的所有格式包括页面设置等等

lizhipei78

3190496160 发表于 2022-6-6 21:43
或者你没有真正测试使用，或者你没有下载最新的版本，18楼的版本可以完全保留原工作表的所有格式包括页面 ...

经测试，18楼真的是可以保持原来的页面设置，这个是完美的拆分工具，不知道是怎么做的，给你一个大大的点赞，我试了好多的拆分工具，都是仅仅是拆分数据出来，虽然速度快，但是作用我觉得不大。有的拆分能保存原来的格式，可是速度好慢，你这个速度够快。
就是我的提议增加多一个功能，即是拆分后的文件删除拆分关键词那一列，这一列我觉得是多余的，毕竟文件名已经以这一列来命名了，已经知道这一个文件是哪个的了。
万分感谢，最好建议是能不能打包成exe格式的，这样子的意义就更大了。

houjia525

太牛了，跪拜

winnie879

3190496160 发表于 2020-8-31 10:40
在功能上做了改进，修正了代码中的几个小错误

你好，我试用了5楼的工具。有个问题是为什么一定要选择次列才可以拆分为独立的工作薄？
我是想把工作表按一列拆分为多个独立的工作薄，因为我不需要次列来拆分，所以在拆分时主列与次列都选为同个列时就不成功。请问要怎样处理才能只按一列拆分为独立的工作薄

smallfat

据说是论坛最好用的拆分工具，刚好需要，测试一下。

3190496160

winnie879 发表于 2022-12-10 12:30
你好，我试用了5楼的工具。有个问题是为什么一定要选择次列才可以拆分为独立的工作薄？
我是想把工作表 ...

呵呵，说明，你根本没有认真的测试使用，不然，你不会提这样的问题的

副Wei

不知道是几十万的数据太大，还是excel的原因，没成功，excel显示无响应这个excel也是刚安装的，本身也不知道是什么问题，删除数据也反应不过来，即使是删除只2000多行也一直没反应过来可惜wps需要veb