求同一行2个单元格内容在同一指定列出现次数

netservice

要求：
1、当Sheet2的D2或者S2单元格内容在Sheet1的G列中出现的次数>=1时，则在Sheet2的T2单元格内填写 是，如果<1,则填写 否。
2、VBA需要从Sheet2的第2行开始，向下重复执行第1条要求，直到Sheet2的A列单元格为空时，则结束。
3、因数据量大，尽可能使用字典。
备注：Sheet2的U列为公式判断结果；

Sheet1

Sheet2

VBA计数求助.rar (157.86 KB, 下载次数: 1)

2018-7-18 11:03 上传

点击文件名下载附件
附件

看见星光

1. Sub DoDict()
   
2.     Dim d As Object, arr, brr, i&, j&
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheet1.Range("a1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 7)) = d(arr(i, 7)) + 1
   
7.     Next
   
8.     arr = Range("a1").CurrentRegion
   
9.     ReDim brr(1 To UBound(arr), 1 To 1)
   
10.     For i = 2 To UBound(arr)
    
11.         If d.exists(arr(i, 4)) Or d.exists(arr(i, 19)) Then
    
12.             brr(i, 1) = "是"
    
13.         Else
    
14.             brr(i, 1) = "否"
    
15.         End If
    
16.     Next
    
17.     brr(1, 1) = "判断结果"
    
18.     Range("u1").Resize(UBound(brr), 1) = brr
    
19.     Set d = Nothing
    
20. End Sub

复制代码

看见星光

VBA计数求助.rar (163.02 KB, 下载次数: 3)

2018-7-18 11:14 上传

点击文件名下载附件

netservice

看见星光 发表于 2018-7-18 11:14

感谢大神，可以了，谢谢！

netservice

看见星光 发表于 2018-7-18 11:14

追问一个问题，如果想增加一个判断，比如Sheet2工作表的D2或S2单元格为空值，判断结果直接为否，要怎么写？