[已解决]一个关于SUMIFS转换成VBA的问题

13724841877

老师们，我参考一些代码，自己编写的。但结果总有点数据不对的。前面还能对得上，后面就有问题了。请教一下，如何修改？

最佳答案

月排行榜 / 总排行榜

爱疯

2016-11-18 16:39

Sub test3()
    Dim A, B, i
    Sheets(1).Select
    A = Range("a1:f" & Range("a65536").End(xlUp).Row)
    Sheets(2).Select
    B = Range("b2:b" & Range("b65536").End(xlUp).Row)
    Set d = CreateObject("scripting.dictionary")

    For i = 2 To UBound(A)
        If A(i, 6) = "上月领料" Then d(A(i, 1)) = d(A(i, 1)) + A(i, 4)
    Next i
    For i = 1 To UBound(B)
        B(i, 1) = d(B(i, 1)) * -1
    Next i

    Range("n:n").Clear
    [n2].Resize(i - 1) = B
End Sub

跳转到最佳答案楼层

望帝春心

瞎改了下，我都不知道我在写什么

1. Sub J列()
   
2.     Range("J2:J27").Select
   
3.     Selection.ClearContents
   
4.     Dim numRow As Long, i As Long
   
5.     numRow = Sheets("整理领料明细").Cells(Rows.Count, "B").End(xlUp).Row '获取D列最后一个不为空的行号
   
6.     For j = 2 To 12
   
7.         If Sheets("差异及状态判断").Cells(j, "F") = "上月领料" Then
   
8.             For i = 2 To numRow   '循环到最后一个不为空的行号次数
   
9.                 If Cells(i, 2) = Sheets("差异及状态判断").Cells(j, 1) Then
   
10.                     Cells(i, "J") = -1 * Sheets("差异及状态判断").Cells(j, "D").Value
    
11.                 End If
    
12.             Next
    
13.         End If
    
14.     Next
    
15. End Sub

复制代码

爱疯

Sub test()
    Dim A, B, j, i, s
    Sheets(1).Select
    A = Range("a1:f" & Range("a65536").End(xlUp).Row)
    Sheets(2).Select
    B = Range("b2:b" & Range("b65536").End(xlUp).Row)

    For i = 1 To UBound(B)
        s = 0
        For j = 2 To UBound(A)
            If B(i, 1) = A(j, 1) And A(j, 6) = "上月领料" Then s = s + A(j, 4)
        Next j
        B(i, 1) = s * -1
    Next i
    Range("n:n").Clear
    [n2].Resize(i - 1) = B
End Sub


重新写，方便些。

雨吧

由于 SUMIFS 条件求和分别在两个表，因此需要两个循环;
由于是两个条件，因此需要 AND 连接两个条件。

1. Sub sumifs()
   
2.     Dim arr, i&, j&
   
3.     arr = Sheet1.UsedRange
   
4.     [l:l] = "" '清空目标列
   
5.     For i = 2 To [b65536].End(3).Row '循环“明细”表（目标区域）
   
6.         For j = 2 To UBound(arr) '循环“判断”表（源数据）
   
7.             If arr(j, 1) = Cells(i, "B") And arr(j, 6) = "上月领料" Then Cells(i, "L") = -arr(j, 4) + Cells(i, "L")
   
8.         Next
   
9.     Next
   
10. End Sub

复制代码

只显示结果3.rar (19.41 KB, 下载次数: 16)

2016-11-18 11:54 上传

点击文件名下载附件

13724841877

望帝春心 发表于 2016-11-18 11:13
瞎改了下，我都不知道我在写什么

终于能上来了，可能数据量太多，超过1万多行。三位老师的代码，我用作运行时都会卡死，处理进度条在0%处不断在闪。我原来的代码又不会卡，只是数据位置错了，能再帮我改一下吗？

13724841877

爱疯 发表于 2016-11-18 11:17
Sub test()
    Dim A, B, j, i, s
    Sheets(1).Select

终于能上来了，可能数据量太多，超过1万多行。三位老师的代码，我用作运行时都会卡死，处理进度条在0%处不断在闪。我原来的代码又不会卡，只是数据位置错了，能再帮我改一下吗？

13724841877

雨吧 发表于 2016-11-18 11:54
由于 SUMIFS 条件求和分别在两个表，因此需要两个循环;
由于是两个条件，因此需要 AND 连接两个条件。

终于能上来了，可能数据量太多，超过1万多行。三位老师的代码，我用作运行时都会卡死，处理进度条在0%处不断在闪。我原来的代码又不会卡，只是数据位置错了，能再帮我改一下吗？

爱疯

那就上传“运行时都会卡死”的文档，才好找原因

望帝春心

13724841877 发表于 2016-11-18 15:10
终于能上来了，可能数据量太多，超过1万多行。三位老师的代码，我用作运行时都会卡死，处理进度条在0%处 ...

你原来的少了一层循环，不是错位那么简单吧，感觉你这个倒像是VLOOKUP啊

雨吧

1万行数据不算多，不是老掉牙的电脑完全可以秒级处理。
为了解决问题可上传真实数据附件说明要求。