拜托各位大佬，麻烦给个统计包含数字个数的程序

小贵州

具体如附件，多谢

条件包含数字个数.tar (50.5 KB, 下载次数: 0)

前天 11:40 上传

点击文件名下载附件

北京首负

附件供参考。。。

123.zip (18.57 KB, 下载次数: 0)

前天 11:40 上传

点击文件名下载附件

四分之一的幸福

• Sub ykcbf()  '//2026.4.23
  
•     With Sheets("被统计数组")
  
•         r = .Cells(.Rows.Count, 1).End(-4162).Row
  
•         zrr = .Range("a2:a" & r).Value
  
•     End With
  
•     With Sheets("目标数据")
  
•         r = .Cells(.Rows.Count, 1).End(-4162).Row
  
•         arr = .[a1].Resize(r, UBound(zrr) + 1).Value
  
•         For i = 2 To UBound(arr)
  
•             st1$ = arr(i, 1)
  
•             For x = 1 To UBound(zrr)
  
•                 st2$ = zrr(x, 1)
  
•                 arr(i, x + 1) = CountSameItems(st1, st2)
  
•             Next
  
•         Next
  
•         .[a1].Resize(r, UBound(zrr) + 1).Value = arr
  
•     End WithEnd Sub
  

陌路丢了谁

条件包含数字个数.zip (48.38 KB, 下载次数: 0)

前天 11:40 上传

点击文件名下载附件