作业帮 > 综合 > 作业

EXCEL中 将单元A2和A1,B2和B1,C1和C2,比较如果全部相等执行,D1=(K1*L1)*43200/(K1*

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/14 05:28:37
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*
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