[已解决]如何快速统计二组中的数据与一组中数据的那个位（A位/B位/C位）相等？

zhongyong6899

请教高手：如何快速统计二组中的数据与一组中数据的那个位（A位/B位/C位）相等？正确结果见I3:K6区域。万分感谢！！！

最佳答案

月排行榜 / 总排行榜

1970-1-1 08:00

跳转到最佳答案楼层

雪舞子

1. Sub test()
   
2.     Dim ar1, ar2, br(), i&, j1&, j2&
   
3.     ar1 = Range("a1").CurrentRegion
   
4.     ar2 = Range("e1").CurrentRegion
   
5.     ReDim br(1 To UBound(ar2), 1 To UBound(ar2, 2))
   
6.     For i = 3 To UBound(ar2)
   
7.         For j2 = 1 To 3
   
8.             For j1 = 1 To 3
   
9.                 If ar2(i, j2) = ar1(i, j1) Then br(i, j2) = br(i, j2) & ar1(2, j1)
   
10.             Next
    
11.         Next
    
12.     Next
    
13.     [m1].Resize(i - 1, j2 - 1) = br
    
14. End Sub

复制代码

如何快速统计二组中的数据与一组中数据的那个位（A位B位C位）相同？.rar (16.04 KB, 下载次数: 3)

2016-1-25 14:43 上传

点击文件名下载附件

zhongyong6899

上楼为最佳答案

爱疯

这个帖子很奇怪，看不到取消最佳（其它有最佳的帖子里可看到，可取消），所以还找不出取消最佳的办法。