函数“CheckCellChongFu”不会在所有代码路径上都返回值

cm96999

自定义函数，出现警告（位置见图片）：函数“CheckCellChongFu”不会在所有代码路径上都返回值。当使用结果时，可能会在运行时发生 null 引用异常。请问高手问题在哪，如何解决？





Function CheckCellChongFu(rng As Range)
        '检查单元格重复
        Dim dic As Object, ct As Object, cel As Range, a As String
        dic = CreateObject("scripting.dictionary")
        For Each cel In rng
            ct = cel.Value
            If Not IsError(ct) Then
                If ct <> "" Then
                    If Not dic.Exists(ct) Then
                        dic.Add(ct, 1)
                    Else
                        a = MsgBox(rng.Parent.Parent.Name & "   " & rng.Parent.Name & "   " & rng.Address(0, 0) & _
                            "工作表中存在重复项：" & ct & vbCrLf & "是否继续？", vbYesNo + vbInformation)
                        If a = vbYes Then
                            Exit Function
                        Else
                            ExcelApp.End()
                        End If
                    End If
                End If
            End If
        Next
    End Function

临沂-枸杞

这个并不是严重错误,不影响编译,
严谨的说,函数是要有返回值的,而且是每一个路径上都需要返回值,
你不需要返回值的话,就用sub 别用function

cm96999

临沂-枸杞 发表于 2023-4-18 08:36
这个并不是严重错误,不影响编译,
严谨的说,函数是要有返回值的,而且是每一个路径上都需要返回值,
你不需 ...

谢谢老师指导！