求助VBA取最大及求和（可能有些难度）

grf1973

典型的字典用法。可以做为案例使用。

dailj

grf1973 发表于 2022-11-28 08:49
典型的字典用法。可以做为案例使用。

优秀优秀非常感激

dailj

准提部林 发表于 2022-11-27 16:23
字典//非常規

前辈，请教一下，if后为什么没有end if，还有if后冒号是什么意思？

准提部林

dailj 发表于 2022-11-28 12:55
前辈，请教一下，if后为什么没有end if，还有if后冒号是什么意思？

一行式寫法, IF 不用加 END IF
冒號--將上下行併成一行

笨鸟飞不高

Sub AwTest()
    Dim i&, k%, x&, r&, ValNum, BcSr$, arr, tAr, d As Object
    Set d = CreateObject("Scripting.Dictionary")
    arr = [B1].CurrentRegion
    ReDim brr(1 To UBound(arr) * 20, 1 To 3)
    For i = 2 To UBound(arr)
        tAr = Split(arr(i, 2), ",")
        ValNum = arr(i, 4) / (UBound(tAr) + 1)
        For k = 0 To UBound(tAr)
            BcSr = arr(i, 1) & tAr(k)
            x = d(BcSr)
            If x = 0 Then r = r + 1: x = r: d(BcSr) = x: brr(r, 1) = BcSr
            brr(x, 2) = IIf(brr(x, 2) > CDate(arr(i, 3)), brr(x, 2), CDate(arr(i, 3)))
            brr(x, 3) = brr(x, 3) + ValNum
        Next
    Next
    [K3].Resize(r, 3) = brr
End Sub

dailj

准提部林 发表于 2022-11-28 13:06
一行式寫法, IF 不用加 END IF
冒號--將上下行併成一行

受教了，谢谢前辈

tanglf188

没啥代码，就是添加了两个按钮，希望是你想要的

13806200212

学着写了一下

dailj

笨鸟飞不高 发表于 2022-11-28 13:17
Sub AwTest()
    Dim i&, k%, x&, r&, ValNum, BcSr$, arr, tAr, d As Object
    Set d = CreateObject ...

感谢帮助