求汇总

limonet

Sub limonet()
    Dim RngCell As Range, FirstAddress, Arr As Variant, i%, TmpN%
    Arr = Intersect(Range("A1").CurrentRegion, Range("A2:A999"))
    For i = 1 To UBound(Arr)
        Set RngCell = Sheets("配制").Range("F3:AV6").Find(Arr(i, 1), , , xlWhole)
        If Not RngCell Is Nothing Then
            FirstAddress = RngCell.Address
            Do
                TmpN = TmpN + RngCell.Offset(, 1).Value
                Set RngCell = Sheets("配制").Range("F3:AV6").FindNext(RngCell)
            Loop While RngCell.Address <> FirstAddress
        End If
        Arr(i, 1) = TmpN
    Next i
    Range("C2").Resize(i - 1) = Arr
End Sub

zw0713

工号列是不查找，不参与计算

yynrzwh

PZ - 5阶段.zip (37.39 KB, 下载次数: 10)

2024-3-28 14:50 上传

点击文件名下载附件

zw0713

yynrzwh 发表于 2024-3-28 14:50

kittli

练习！！！！！