文本格式数据条件统计

the7iris

想要的效果如图……

quqiyuan

=COUNTIFS(B:B,I4,D:D,">="&--("2024-"&$I$2&"-1"),D:D,"<="&EOMONTH("2024-"&$J$2,0))
=SUMIFS(C:C,B:B,I4,D:D,">="&--("2024-"&$I$2&"-1"),D:D,"<="&EOMONTH("2024-"&$J$2,0))
数据格式要修正一下咯

quqiyuan

不改格式
=SUMPRODUCT(($B$3:$B$22=I4)*(--$D$3:$D$22>=--("2024-"&$I$2&"-1"))*(--$D$3:$D$22<=EOMONTH("2024-"&$J$2,0)))

=SUMPRODUCT(($B$3:$B$22=I4)*(--$D$3:$D$22>=--("2024-"&$I$2&"-1"))*(--$D$3:$D$22<=EOMONTH("2024-"&$J$2,0))*--$C$3:$C$22)

the7iris

quqiyuan 发表于 2024-6-3 14:54
=COUNTIFS(B:B,I4,D:D,">="&--("2024-"&$I$2&"-1"),D:D,"="&--("2024-"&$I$2&"-1"),D:D,"

就是完全不想去修正

the7iris

quqiyuan 发表于 2024-6-3 14:57
不改格式
=SUMPRODUCT(($B$3:$B$22=I4)*(--$D$3:$D$22>=--("2024-"&$I$2&"-1"))*(--$D$3:$D$22=--("2024-" ...

大神大神，为什么直接范围取$B:$B列就不行

quqiyuan

the7iris 发表于 2024-6-3 15:12
大神大神，为什么直接范围取$B:$B列就不行

=SUMPRODUCT(IFERROR((B:B=I4)*((MONTH(--D:D)=$I$2)+(MONTH(--D:D)=$J$2)),))

=SUMPRODUCT(IFERROR((B:B=I4)*((MONTH(--D:D)=$I$2)+(MONTH(--D:D)=$J$2))*--C:C,))

part98

=SUM(((MONTH($D$3:$D$22)=$I$2)+(MONTH($D$3:$D$22)=$J$2))*($B$3:$B$22=$I4))
=SUM(--IF(((MONTH($D$3:$D$22)=$I$2)+(MONTH($D$3:$D$22)=$J$2))*($B$3:$B$22=$I4),$C$3:$C$22,))

zhangcheng6688

学习一下字典，打扰了

Sub test()
arr = [b1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 3)
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   rq = Mid(arr(i, 3), 6, 2)
   If Len([i2]) = 1 Then
      s = "0" & [i2]
   End If
   If Len([j2]) = 1 Then
      s1 = "0" & [j2]
   End If
   If rq >= s And rq <= s1 Then
      If Not d.exists(arr(i, 1)) Then
         m = m + 1
         brr(m, 1) = arr(i, 1)
         brr(m, 2) = 1
         brr(m, 3) = arr(i, 2)
         d(arr(i, 1)) = m
      Else
         r = d(arr(i, 1))
         brr(r, 2) = brr(r, 2) + 1
         brr(r, 3) = brr(r, 3) + Val(arr(i, 2))
      End If
   End If
Next
crr = [i2].CurrentRegion
For i = 3 To UBound(crr)
   If d.exists(crr(i, 1)) Then
      r1 = d(crr(i, 1))
      crr(i, 2) = brr(r1, 2)
      crr(i, 3) = brr(r1, 3)
   Else
      crr(i, 2) = 0
      crr(i, 3) = 0
   End If
Next
[i2].CurrentRegion = crr
End Sub