批处理如何统计Excel表格指定列中的指定字符（英文逗号,）的个数/数量

wgemp5

我有一个Excel，D列 E列分别是数字和器件，如下图：

25	L11, L12, L13, L24, L28, R173, R386A, R451, R711, L66， R3, R99, R113, R154, R156, R178, R213, R382, R374, R125, R386, R387, L29, R297, R282
2	R350,R351
21	R28, R29, R33, R48, R51, R54, R80, R85, R133, R135, R136, R137, R139, R140, R141, R142, R143, R146, R284, R753, R230
5	R75,R102,R394,R74,R97,
12	R150, R170, R181, R201, R203, R205, R217, R219, R220, R223, R124, R126
13	R92, R123, R130, R131, R132, R81, R83, R84, R90, R91, R433, R504, R505

那我想做一个批处理计算E列中的器件总数和D列的数值是否相同，如果不同就暂停执行批处理，并把错误行告知。
我的想法是计算E列中的逗号数+1与D列数值比较，但具体怎么做却没办法，请高手指点一下！

batman

批处理不能直接对excel文件进行操作，所以应先将要比对的内容复制到文本中再用批处
理进行比对(测试时请将代码中的[tab]字符换成实际的tab键)：

1. @echo off&setlocal enabledelayedexpansion
   
2. rem 先复制两列内容到a.txt
   
3. for /f "tokens=1,2 delims=[tab]" %%a in (a.txt) do (
   
4.      set /a num+=1
   
5.      for %%c in (%%b) do set /a n+=1
   
6.      if %%a neq !n! call :lp
   
7.      set /a n=0
   
8. )
   
9. pause>nul&goto :eof
   
10. :lp
    
11. echo %num%行出错&pause>nul

复制代码

pcl_test

vbs

1. Set ExcelApp = CreateObject("Excel.Application")
   
2. ExcelApp.Visible = True
   
3. Set objBook = ExcelApp.Workbooks.Open("C:\Users\Administrator\Desktop\文件列表\测试.xls")
   
4. ExcelApp.WorkSheets(1).Activate
   
5. rowcount =objBook.ActiveSheet.UsedRange.Rows.Count
   
6. s=""
   
7. For i=1 to rowcount
   
8.     d = objBook.ActiveSheet.Cells(i, 4).value
   
9.     e = UBound(split(objBook.ActiveSheet.Cells(i, 5).value, ","))+1
   
10.     If d <> e Then  s=s&"第"&i&"行:D列"&d&" E列"&e&vbCrLf
    
11. Next
    
12. Msgbox s
    
13. objBook.Close
    
14. ExcelApp.Quit

复制代码