条件统计问题

缘之绘

总预定数统计，单位一样就合计，不一样就连接

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, mark, i, s, sum, p
  arr = Sheets("原始资料").[a1].CurrentRegion.Offset(1)
  ReDim brr(1 To 1, 1 To 3)
  With Sheets("查询")
    mark = .[e2:h2].Value
    For i = 1 To UBound(arr, 1) - 1
      If mark(1, 1) = arr(i, 8) And arr(i, 4) >= mark(1, 2) And arr(i, 4) <= mark(1, 4) Then
        brr(1, 1) = arr(i, 6): brr(1, 2) = arr(i, 7): p = i
        sum = sum + arr(i, 10)
        s = s & "+" & "(" & arr(i, 4) & "-" & arr(i, 22) & ")" & arr(i, 10) & arr(i, 11)
      End If
    Next
    If p > 0 Then brr(1, 3) = "总预订数=其中：" & sum & arr(p, 11) & vbNewLine & "其中：" & Mid(s, 2)
    .[a6].Resize(, 3) = brr
  End With
End Sub

缘之绘

一把小刀闯天下 发表于 2020-1-21 11:35
Option Explicit

Sub test()

如果要单位一样才求和，单位不一样，就连接，怎么弄

一把小刀闯天下

缘之绘 发表于 2020-1-21 14:19
如果要单位一样才求和，单位不一样，就连接，怎么弄

'根据单位进行累加，连接并未改变，，，

Option Explicit

Sub test()
  Dim arr, mark, i, s, dic
  Set dic = CreateObject("scripting.dictionary")
  arr = Sheets("原始资料").[a1].CurrentRegion.Offset(1)
  ReDim brr(1 To 1, 1 To 3)
  With Sheets("查询")
    mark = .[e2:h2].Value
    For i = 1 To UBound(arr, 1) - 1
      If mark(1, 1) = arr(i, 8) And arr(i, 4) >= mark(1, 2) And arr(i, 4) <= mark(1, 4) Then
        brr(1, 1) = arr(i, 6): brr(1, 2) = arr(i, 7)
        dic(arr(i, 11)) = dic(arr(i, 11)) + arr(i, 10)
        s = s & "+" & "(" & arr(i, 4) & "-" & arr(i, 22) & ")" & arr(i, 10) & arr(i, 11)
      End If
    Next
    If Len(s) > 0 Then
      For Each i In dic.keys
        brr(1, 3) = brr(1, 3) & "+" & dic(i) & i
      Next
      brr(1, 3) = "总预订数=其中：" & Mid(brr(1, 3), 2)
      brr(1, 3) = brr(1, 3) & vbNewLine & "其中：" & Mid(s, 2)
    End If
    .[a6].Resize(, 3) = brr
  End With
End Sub

缘之绘

一把小刀闯天下 发表于 2020-1-21 15:05
'根据单位进行累加，连接并未改变，，，

Option Explicit

谢谢，还是不对

缘之绘

我加了数据，出来不对

一把小刀闯天下

缘之绘 发表于 2020-1-21 15:12
我加了数据，出来不对

总预订数=其中：2778.5斤+3包+129个

后面就是连接输出，没有什么问题。你想要什么样的结果可以做个示例，然后把因果关系说清楚就可以了。你到底想要什么样的结果没看到，这还真不好猜，，，

缘之绘

一个类别的全部找出

一把小刀闯天下

缘之绘 发表于 2020-1-21 15:30
一个类别的全部找出

猜不着。看看有没有猜题大神路过的，，，