请问，清单到价格表中找到符合条件的价格？

bzghb

同一个日期，有不同的规格，如何把价格找出来？

bzghb

如12.7日，进了三级钢10，它的价格包含在三级钢8中如何找出，又如三级钢25的价格包含在三级钢16之中，这又如何找出，小弟才学疏浅，请各位答疑解惑，谢谢。

笑着...两年过去

bzghb 发表于 2015-3-4 15:12
如12.7日，进了三级钢10，它的价格包含在三级钢8中如何找出，又如三级钢25的价格包含在三级钢16之中，这又如 ...

1. Sub test()
   
2.     For i = 2 To [a2].End(4).Row
   
3.         If Mid(Cells(i, 2), 4, 2) > 15 Then
   
4.            j = "三级钢16"
   
5.         Else
   
6.            j = Application.Substitute(Cells(i, 2), "钢10", "钢8")
   
7.         End If
   
8.         Cells(i, 4) = Application.SumIfs([i:i], [g:g], Cells(i, 1), [h:h], j)
   
9.     Next
   
10. End Sub

复制代码

bzghb

谢谢，运行时显示代码438，Cells(i, 4) = Application.SumIfs([i:i], [g:g], Cells(i, 1), [h:h], j)这句显示黄色，不知为什么？我的是excel是2003的。

bzghb

价格表1.rar (8.56 KB, 下载次数: 5)

2015-3-5 14:14 上传

点击文件名下载附件

可能是叙述不清，我把最终要的效果，发上，请大家帮帮忙。祝大家元宵节快乐！