关于这个问题估计有点难度 如何让表2里单价一栏依据表1自动填上.表1是价格表,不过规格型号很多都纳在一栏了,要不然分开一个规格一栏的话,就有上万种型号…如果不能的话,表1怎样修改才能办到?的问题
考虑到你的数据量比较大，写了一个自定义函数给你，不用改表的结构即可使用。如附件所示：
‘自定义函数代码如下：
Option Explicit
Function pp(a, b, c)
Application。Volatile (False) ‘标记本函数为非易失性函数
Dim x As Range, y As Range, arrTemp, m!, n!
arrTemp = Split(c, “*”) ‘分解“规格”中的直径和长度值
m = arrTemp(0) ‘直径
n = arrTemp(1) ‘长度
With Sheets(“sheet1”) ‘指向数据所在表
Set x = 。
[3:3]。Find(a, LookIn:=xlValues) ‘查找材料类别
Set y = 。[A:A]。Find(m, LookIn:=xlValues) ‘查找规格
‘定位单价值
pp = 。Cells(IIf(n x。
Offset(1, 0), x。Column + 1, x。Column))
End With
End Function
。
