[已解决]双条件排序

张雄友

dsmch 发表于 2015-5-29 21:48
公式这步就省略了，直接用代码生成结果

For i = 1 To UBound(arr)
    zf = arr(i, 1) & "," & arr(i, 2)
    arr(i, 5) = arr(i, 3) + arr(i, 4)
    d(zf) = i
Next

这样吗？

dsmch

Sub Macro1()
[f3:f20000] = ""
arr = Range("b2").CurrentRegion
For i = 2 To UBound(arr)
    arr(i, 5) = arr(i, 3) + arr(i, 4)
Next
End Sub
Sub Macro2()
[f3:f20000] = ""
[f3] = "=D3+E3"
[f3].AutoFill [f3:f38]
End Sub

张雄友

dsmch 发表于 2015-5-29 22:08
Sub Macro1()
[f3:f20000] = ""
arr = Range("b2").CurrentRegion

[f3] = "=D3+E3"
[f3].AutoFill [f3:f38]

这二句感觉很强大。