本帖最后由 砂海 于 2023-5-18 12:09 编辑
2.5cm3E棕3cm3E棕
如果cm左侧必定是合法数字(厚度)的话 , 建议直接提取 厚度来运算
Sub 折算打折()
For x = 6 To 21
s = Cells(x, 4).Value
m = 0: n = 0: h = 0: t = 0: 厚度 = 0: 标识 = 0
If Cells(x, 7) Like "*棕*" Then
标识 = InStr(s, "cm")
If 标识 > 1 Then
厚度 = Left(s, 标识 - 1)
'...
''======================================================
刚才 s 写错, 成Cells(x, 7),,
看上去, 还有更大的问题,
按照当前的结构, 算是有【单据】,没有【总表】,后续统计工作很麻烦
|