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

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

相关问题