题目

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 .求函数如何设置?宏怎么设置?

提问时间：2020-10-21

答案

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...