按列拆分工具

pdspmww · 发表于 2024-8-1 10:19

本帖最后由 pdspmww 于 2024-8-1 10:21 编辑

以前在论坛上下载的VBA，原来是按B列拆分，自己通过kimi修改成可任选列拆分（A-W列），标题行为第一行，拆分后文件放在拆分表的工作夹内，需要的请下载

GUQLM · 发表于 2024-8-1 11:26

感谢楼主分享，收藏备用

lizhipei78 · 发表于 2024-8-1 17:56

ykcbf1100 · 发表于 2024-8-1 18:29

作为拆分工具，最大行号和最大列号应该都是代码来确定的，但是arr = .Range("a1:w" & r)，这是把数组写死了，这样不合适吧，万一还有比W列更大的列呢？

戎马书生222 · 发表于 2024-8-1 19:35

其实wps里面就有拆分功能。我用的大学版

ykcbf1100 · 发表于 2024-8-1 20:49

lizhipei78 发表于 2024-8-1 17:56
拆分的话，感觉我这个更实用一些
https://club.excelhome.net/thread-1681303-1-1.html

很明显，你的那个拆分工具更适用，虽然我用不到。

pdspmww · 发表于 2024-8-2 08:01

wps里面拆分功能与https://club.excelhome.net/thread-1681303-1-1.html都不错，这个VBA仅供大家学习交流

ylf969 · 发表于 2024-8-2 08:17

感谢楼主分享，收藏备用

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

[分享] 按列拆分工具