通过VBA自动计算对应品名的重量

ykcbf1100

楼主G3单元格的计算明显有误，结果在H列。

这个用VBA比用函数要简单。

ykcbf1100

重量计算。。

1. Sub ykcbf()  '//2024.6.26
   
2.     r = Cells(Rows.Count, 2).End(3).Row
   
3.     For i = 3 To r
   
4.         If Val(Cells(i, 2)) Then
   
5.             st = Split(Cells(i, 4), "*")
   
6.             Sum = 1
   
7.             For x = 0 To UBound(st)
   
8.                 Sum = Sum * Val(st(x))
   
9.             Next
   
10.             Cells(i, 8) = Sum * 0.00785 * Val(Cells(i, 5)) * Val(Cells(i, 6)) / 1000
    
11.         End If
    
12.     Next
    
13.     MsgBox "OK！"
    
14. End Sub
    

复制代码