VBA实现EXCEL某一列的部分数据和等于指定值

Posted 2022-11-24 crazy_itman

Dim sj(), sj1, sj2, jg(), cnt&, d&, h&, hh&, k&, l&, m&, n&, nn&, p&, q&
Sub kagawa()
    tms = Timer
    d = [h3]: l = [h6]: If l = 0 Then l = 65535
    h = [h1] * 10 ^ d: hh = [h2] * 10 ^ d: If hh > h Then hh = hh - h

    If [h7] = 0 Then p = 10 ^ 5 Else p = 10 ^ [h7]

    m = [a1].CurrentRegion.Rows.Count - 1
    n = [h4]: nn = [h5]: If n