sumif 改为宏 谢谢

大脸杀手

如图，我想实现的结果在公式里面 现在想改为宏公式 谢谢

不知道为什么

如图               

不知道为什么

代码供测试  

大脸杀手

不知道为什么 发表于 2018-7-2 13:07
代码供测试

你好 我把你发的图片 打进 宏 怎么得出的结果 不对啊 就是 需要合计的金额 显示 为 TRUE.....

不知道为什么

大脸杀手 发表于 2018-7-2 14:54
你好 我把你发的图片 打进 宏 怎么得出的结果 不对啊 就是 需要合计的金额 显示 为 TRUE.....

把你产生错误的附件发上看看

大脸杀手

发了 5555

大脸杀手

不知道为什么 发表于 2018-7-2 15:01
把你产生错误的附件发上看看

发了 谢谢 请看看吧 谢谢 555

大脸杀手

附件在这一层楼

不知道为什么

大脸杀手 发表于 2018-7-2 15:21
附件在这一层楼

你说你抄的代码呢？没有代码我怎么知道你错在哪？

大脸杀手

不知道为什么 发表于 2018-7-2 15:39
你说你抄的代码呢？没有代码我怎么知道你错在哪？

Sub Macro2()
'
' Macro2 Macro

Dim brr()
Set dic = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 3 To UBound(arr)
    sf = Trim(arr(i, 3))
    If Not dic.exists(sf) Then
    x = i
    dic(sf) = x
    brr(x, 1) = arr(i, 4)
    Else
    brr(dic(sf), 1) = brr(dic(sf), 1) = arr(i, 4)
    End If
    Next i
    Columns("h").ClearContents
    [h1].Resize(UBound(arr), 1) = brr
'
End Sub