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 .求函数如何设置?宏怎么设
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/08 10:59:52
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 .求函数如何设置?宏怎么设
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 .求函数如何设置?宏怎么设置?
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 If
End Sub
宏就是这样设置,这里仅根据你的提问设置宏,如果abc列数据大于二行,请联系qq2252809238