人数复核问题

grayw

如果K列人数大于等于4，即在T列填入K列相应的人数数字。如果K列人数小于4，先看A列同一区B列同一街道下是否有大于等于2场的相同场景，有则将相应人数的数字相加，填入T列，例：金山区的朱泾街道有2场“沿街”场景，即将他们各自的人数相加，所以T3、T4单元格的数字都是4；同理金山的亭林T5-7单元格数字都是4；小于2场的场景也是在T列填入K列相应的人数数字即可。请大虾们帮忙看看，谢谢！

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()   '//2025.4.11
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 20)
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 11) < 4 Then
   
7.             s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 6)
   
8.             d(s) = d(s) + arr(i, 11)
   
9.         End If
   
10.     Next
    
11.     For i = 2 To UBound(arr)
    
12.         s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 6)
    
13.         If d.exists(s) Then
    
14.             arr(i, 20) = d(s)
    
15.         Else
    
16.             arr(i, 20) = arr(i, 11)
    
17.         End If
    
18.     Next
    
19.     [a1].Resize(r, 20) = arr
    
20. End Sub
    

复制代码

翁知江安

Sub test()
Dim i As Integer, ar, br As Variant, d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheets("1").[a1].CurrentRegion
ReDim br(1 To UBound(ar) - 1, 1 To 1)
For i = 2 To UBound(ar)
    d(ar(i, 1) & ar(i, 2) & ar(i, 6)) = d(ar(i, 1) & ar(i, 2) & ar(i, 6)) + ar(i, 11)
Next
For i = 2 To UBound(ar)
   If ar(i, 11) >= 4 Then
     br(i - 1, 1) = ar(i, 11)
     Else
      br(i - 1, 1) = d(ar(i, 1) & ar(i, 2) & ar(i, 6))
      End If
Next
Sheets("1").[t2].Resize(UBound(ar) - 1, 1) = br
MsgBox "ok"
End Sub

cyq4896

参与一下....

grayw

ykcbf1100 发表于 2025-4-11 12:02

问题完美解决了，谢谢大虾

grayw

翁知江安 发表于 2025-4-11 12:26
Sub test()
Dim i As Integer, ar, br As Variant, d As Object
Set d = CreateObject("scripting.dictio ...

谢谢大虾回复~

grayw

cyq4896 发表于 2025-4-11 12:38
参与一下....

谢谢大虾回复~

沈默00

参与一下
=MAP(K2:K13,LAMBDA(x,IF(x>=4,x,SUMIFS($K$2:$K$13,$A$2:$A$13,OFFSET(x,,-10),$B$2:$B$13,OFFSET(x,,-9),$F$2:$F$13,OFFSET(x,,-5)))))

grayw

沈默00 发表于 2025-4-11 13:43
参与一下
=MAP(K2:K13,LAMBDA(x,IF(x>=4,x,SUMIFS($K$2:$K$13,$A$2:$A$13,OFFSET(x,,-10),$B$2:$B$13,OF ...

谢谢大虾回复～