批处理如何对Excel表格的数据按年级进行人数统计及人名汇总？

mick00034

目标文件是excel,每个名字后面对应一个数字，由1或2或3构成。看图参考，每个数字代表不同的年级。批处理或其他方法也行。运算结果放在新的记事本就行。

批处理后的结果要求：
一年级人数（3名） ：张一，李善，赵武。
二年级人数（3名） ：张一，王二，王二。
三年级人数（2名） ：李善，赵武。
班级总人数：8名。

pcl_test

只想说Excel自带分类汇总

codegay

一句话,楼主暴露了,Excel没学好\批处理也没学好.

以及楼主帖子的原标题,"批处理，数学计算可以吗？"
这跟科不学科学计算的,毛关系没有.就是普通的计算.

mick00034

回复 2# pcl_test

Excel自带分类汇总,我想表达的是批处理的方法应用，谢谢啦。

happy886rr

回复 4# mick00034
那你会导出csv不？

林小七

你以为我大ms的宏(vba)是吃白饭的么?

pcl_test

方法就像这样

1. @echo  off
   
2. setlocal enabledelayedexpansion
   
3. for /f "tokens=1,2" %%a in ('more +9 "%~f0"') do (
   
4.     set "#%%b=!#%%b!%%a "
   
5.     set /a _%%b+=1
   
6. )
   
7. for /f "delims=#=" %%a in ('set #') do echo;%%a !_%%a! !#%%a!&set /a s+=!_%%a!
   
8. echo;%s%
   
9. pause
   
10. a 2
    
11. b 3
    
12. c 1
    
13. c 2
    
14. e 1
    
15. f 4
    
16. a 1
    
17. y 4

复制代码

codegay

赌五毛,楼主继续来追问版主怎么弄.

bailong360

1. 1>1/* :
   
2. @echo off
   
3. setlocal enabledelayedexpansion
   
4. set "xlsFile=C:\test.xls"
   
5. for /f "delims=" %%i in ("%xlsFile%") do set "xlsFile=%%~fi"
   
6. for /f "tokens=1,2 delims=, " %%i in ('cscript -nologo -e:jscript "%~f0" "%xlsFile%"') do (
   
7.     set /a #%%j+=1
   
8.     set ##%%j=%%i,!##%%j!
   
9. )
   
10. for /f "delims=#=" %%i in ('set ##') do echo %%i年级人数(!#%%i!):!##%%i:~,-1!.
    
11. del "%xlsFile:.xls=.csv%"
    
12. pause
    
13. exit /b
    
14. */
    
15. var xlsFile = WScript.Arguments.Item(0);
    
16. var csvFile = xlsFile.replace('.xls', '.csv');
    
17. var FSO = new ActiveXObject('Scripting.FileSystemObject');
    
18. var Excel = new ActiveXObject('Excel.Application');
    
19.     Excel.DisplayAlerts = 0;
    
20. var WBook = Excel.Workbooks.Open(xlsFile);
    
21.     WBook.SaveAs(csvFile , 6);
    
22.     WBook.Save();
    
23.     WBook.Close();
    
24. Excel.Quit();
    
25. WScript.Echo(FSO.OpenTextFile(csvFile , 1).ReadAll().replace(/(\d+),/g, '$1 \r\n').replace(/^,/gm, ''));
    

复制代码

练手来的
话说怎么才能不弹那个是否保存的对话框...

pcl_test

回复 9# bailong360

直接屏蔽掉
Excel.DisplayAlerts = 0;

pcl_test

回复 8# codegay

嗯，你会暴富的