自定义函数求助

twandoucfx

本人刚开始学习VBA，最近在编写一个自定义函数的时候，运行后总显示错误，求助哪位大神帮忙看下问题出在哪了？谢谢！

编写的代码如下：
Public Function findljh(x As Range, cj As Range, ljmc As Range, ljdh As Range)
Dim str As Range
Set str = ljmc.Find(x.Value, lookat:=xlWhole)
    If Sheets(ljmc.Parent.Name).Cells(str.Row, cj.Column).Value = 1 Then
    Set str = ljmc.FindNext(str)
    End If
   
    findljh = Sheets(ljmc.Parent.Name).Cells(str.Row, ljdh.Column).Value
End Function

jiangxiaoyun

这个就是类似textjoin函数，就是不知道是否要去重，忽略空格等等。

twandoucfx

这个写成函数格式计算出来有问题，但是如果我把它转为一个SUB，将所有的参数代入，算出来的结果又没问题。搞不懂哪里出了问题。在运行监视窗口的时候，发现str函数有显示“上下文溢出”，不知道这个是啥意思