[其他] 求工作簿内单列数据按固定数量拆分成多列后再拆分成多个表格

Missiaiaia

工作簿内A列数据有数字1-100，已按顺序10个每列拆分成10列，现想将10列数据快速拆分成多个表格，1列数据1个表格。求大神康康！！
如表1
1
2
3
4
5
6
7
8
9
10

aloha20200628

回复 1# Missiaiaia
回复 3# 11231

以下代码存为 test.bat 运行，与要处理的电子表格源文件（假定为 d:\test\a.xls）同目录，运行结果会在当前目录下创建一个临时子目录 ‘sheets.tmp’，源文件中的各列数据被拆分为对应的 *.xls 文件，位于临时子目录中，其命名格式如 {1}.xls, ... {10}.xls。代码只处理 *.xls 或 *.xlsx 两种格式文件，被处理的源文件（须为全路径）和临时子目录名均可在代码第二行中自定义...

2>1/* ::
@echo off &setlocal &set "xF=d:\test\a.xls" &md "%cd%\sheets.tmp" 2>nul
cscript /nologo /e:jscript "%~f0" "%xF%" "%cd%\sheets.tmp" &pause&exit/b */
v=WSH.arguments, e=v(0).split('.').slice(-1); i=(e=='xls')?-4143:51;
xls=WSH.createobject('excel.application'), xls.visible=false, xls.displayalerts=false;
wb=xls.workbooks.open(v(0)), sn=wb.sheets(1).name;
for (n=1,l=wb.sheets(sn).usedRange.columns.count; n<=l; n++) {
	wb.sheets(sn).select(), wb.sheets(sn).columns(n).copy();
	wbn=xls.workbooks.add();
	wbn.activeSheet.range('A:A').pasteSpecial();
	xF=v(1)+'\\{'+n+'}.'+e, wbn.saveAs(xF,i), wbn.close(); }
wb.close(), xls.quit(), WSH.quit();
复制代码

11231

请问要是想拆分成多个xls文件，而且每个拆分后的xls.都有一张主表（基本信息）和子表（拆分后的数据）呢

Batcher

回复 1# Missiaiaia


    拆分成多个Sheet还是多个.xls文件？