假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15如果字母组合扫过了 就继续往上加数量 如果有新
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/25 04:22:27
假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15如果字母组合扫过了 就继续往上加数量 如果有新
假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15
如果字母组合扫过了 就继续往上加数量 如果有新的字母组合就生成新的一行
假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15如果字母组合扫过了 就继续往上加数量 如果有新
假设你所有的商品代码都在EXCEL的第一个表的第一列里
那下面的代码可以把第2列填充成你想要的数据
dim i as long
dim s as string
dim s1 as string
dim s2 as string
i=1
dim j as long
s=trim(sheet1.cells(i,1) & "")
while not (s="" )
s2=left(s,2)
j=1
s3=trim(sheet1.cells(j,2) & "")
while not( s3="" ) and not( left(s3,2)=s2)
j=j+1
s3=trim(sheet1.cells(j,2) & "")
wend
if s3="" then
sheet1.cells(j,2)=s2 & " " & right(s,2)
else
sheet1.cells(j,2)=s2 & " " & int( val(right(s,2))+val(right(s3,2)))
endif
i=i+1
s=sheet1.cells(i,1) & ""
wend
头一次代码有错误,现在修改过