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

最新推荐文章于 2024-09-25 09:25:38 发布

AI绘画（可定制）

最新推荐文章于 2024-09-25 09:25:38 发布

阅读量5.3k

点赞数 3

分类专栏：解决方案文章标签： excel vba

本文链接：https://blog.csdn.net/zkn_CS_DN_2013/article/details/77885210

版权

本文介绍了如何使用VBA编程在Excel中查找某一列满足条件的数据，并计算这些数据的总和，帮助用户高效处理大量数据。

摘要由CSDN通过智能技术生成

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 nn = 0 Then If n = 0 Then nn = m Else nn = n
    If Application.Count([d2].Resize(m)) = m And Application.Sum([d2].Resize(m)) = (m + 1) * m / 2 Then
        [a1].CurrentRegion.Sort [d2], 1, , , , , , 1
    Else
        [d2].Resize(m) = "": [d2] = 1: [d2].Resize(m).DataSeries Rowcol:=xlColumns
    End If

    [a2].Resize(m, 5).Sort [c2], 1, , , , , , 2
    sj1 = [a2].Resize(m, 6)
    [e2].Resize(m) = "":
    sj2 = [e2].Resize(m)
    For i = 1 To m
        sj1(i, 1) =