[文件操作] 批处理如何统计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键)：

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

pcl_test

vbs

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