跨表统计

认真学习123456 · 发表于 2024-5-27 07:21

本帖最后由认真学习123456 于 2024-5-27 14:07 编辑

各位大老请问一下，这个跨统计函数如何写，我在表1里面内容，统计表2里面对应的数量，谢谢

沈默00 · 发表于 2024-5-27 07:24

=COUNTIF(Sheet2!$B:$B,$A2)

认真学习123456 · 发表于 2024-5-27 07:29

沈默00 发表于 2024-5-27 07:24
=COUNTIF(Sheet2!$B:$B,$A2)

谢谢，大老谢谢

zhangcheng6688 · 发表于 2024-5-27 09:29

学习一下字典，打扰了
Sub test()
Set d = CreateObject("scripting.dictionary")
arr = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(arr)
s = arr(i, 2)
d(s) = d(s) + 1
Next
brr = Sheet1.[a1].CurrentRegion
For j = 2 To UBound(brr)
brr(j, 2) = d(brr(j, 1))
Next
Sheet1.[a1].CurrentRegion = brr
End Sub

认真学习123456 · 发表于 2024-5-27 11:07

zhangcheng6688 发表于 2024-5-27 09:29
学习一下字典，打扰了
Sub test()
Set d = CreateObject("scripting.dictionary")

谢谢大老

认真学习123456 · 发表于 2024-5-27 11:15

zhangcheng6688 发表于 2024-5-27 09:29
学习一下字典，打扰了
Sub test()
Set d = CreateObject("scripting.dictionary")

老师，请问一下，比如我还是在表2中进行统计，比如要b、D、F进行三行统计这个代码是如何写啊A列不变

认真学习123456 · 发表于 2024-5-27 11:41

zhangcheng6688 发表于 2024-5-27 09:29
学习一下字典，打扰了
Sub test()
Set d = CreateObject("scripting.dictionary")

这种统计如何写，因为表2没有固定的行

zhangcheng6688 · 发表于 2024-5-27 12:26

认真学习123456 发表于 2024-5-27 11:41
这种统计如何写，因为表2没有固定的行

需要新的附件

认真学习123456 · 发表于 2024-5-27 14:07

zhangcheng6688 发表于 2024-5-27 12:26
需要新的附件

已经上传27那个，谢谢

zhangcheng6688 · 发表于 2024-5-27 14:34

不太确定，是不是这个意思
Sub test()
Set d = CreateObject("scripting.dictionary")
lastr = Sheet2.Cells(Rows.Count, "g").End(xlUp).Row
arr = Sheet2.Range("a1:g" & lastr)
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
   s = arr(i, j)
   If s <> "" Then
      d(s) = d(s) + 1
   End If
Next
Next
brr = Sheet1.[a1].CurrentRegion
For j = 2 To UBound(brr)
brr(j, 2) = d(brr(j, 1))
Next
Sheet1.[a1].CurrentRegion = brr
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 跨表统计

评分