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

Posted 2022-12-12 crazy_itman

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了VBA实现EXCEL某一列的部分数据和等于指定值相关的知识，希望对你有一定的参考价值。

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

以上是关于VBA实现EXCEL某一列的部分数据和等于指定值的主要内容，如果未能解决你的问题，请参考以下文章