应用场景
利用公式查找两个区域的不同项,并返回结果
知识要点
1:开发一个名为differ的函数,类型为string,有2个参数,分别表示待比较的两个区域,可以单行、单列,也可以多行多列
Function Differ(Rng1 As Range, Rng2 As Range) As String
Application.Volatile "声明为易失性函数
Dim i As Integer, Temp
For i = 1 To Rng1.Cells.Count "遍历第一个参数代表的区域中的每个单元格
If Len(Rng1(i)) > 0 Then "如果非空
"计算单元格的值在第二参数代表的区域中的出现次数
Temp = WorksheetFunction.CountIf(Rng2, Rng1(i))
If Temp = 0 Then
If Len(Differ) = 0 Then Differ = Rng1(i) Else Differ = Differ & "/" & Rng1(i)
End If
End If
Next i
If Len(Differ) = 0 Then Differ = "" "如果没有不同值或者第三参数超过范围则返回空文本
End Function