EXCEL中 将单元A2和A1,B2和B1,C1和C2,比较如果全部相等执行,D1=(K1*L1)*43200/(K1*L1+K2*L2)D2=(K2*L2)*43200/(K1*L1+K2*L2), 如果其中有一个不等的,D列的值为43200,然后自动填充到d2,d3,d4 .求函数如何设置?宏怎么设置?
网友回答
Sub abc()
a = Range(a1:c & [a65536].End(xlUp).Row)
b = Range(k1:l & [a65536].End(xlUp).Row)
c = Join(Application.Index(a, 1, 0), )
d = Join(Application.Index(a, 2, 0), )
If c = d Then
[d1] = ([k1] * [l1]) * 43200 / ([k1] * [l1] + [k2] * [l2])
[d2] = ([k2] * [l2]) * 43200 / ([k1] * [l1] + [k2] * [l2])
Else [d1:d4] = 43200
End IfEnd Sub
宏就是这样设置,这里仅根据你的提问设置宏,如果abc列数据大于二行,请联系qq2252809238