假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/04 05:15:49
假设有条码,格式为两位字母加六位数字 例如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
头一次代码有错误,现在修改过
那下面的代码可以把第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
头一次代码有错误,现在修改过
普通商品条码数字有多少位?
身份证号码最后两位数字表示什么?
把2500000,保留两位有效数字
财务:在EXCEL表中,算的数字是有很多位小数点的,设置格式为显示两位小数点 ,可是只是隐藏了,在算合计
数字6~14位,字母分大小写,不可为9位纯数字的密码格式
有一个三位数的百位数字是1,如果把1移到最后,其他两位数字顺序不变,所得的三位数比这个三位数二倍少1,
邮政编码 两位数字20
0.1022保留两位数字
邮政编码是6位数字组成.前两位数字表示();前三位表示();前四位表示();最后两位数字表示()
excel中把两列内容合并的公式是什么?例如A列式数字,B列式汉语,我想把他们组合在一起怎么弄,谢谢!
有一个两位正整数,它的十位上的数字与个位上的数字的和为6,则这样的两位正整数有( )
两个两位数字,它们各位数字互不相同,例如:12*63=21*36