Excel-VBA自定义函数识别并返回两个区域的不同项

应用场景

利用公式查找两个区域的不同项，并返回结果

知识要点

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