模糊名称被检测到

我的代码不能正常工作，并显示一个错误消息，说明模糊名称检测到：WOS这是我的代码如下。 我如何获得这个代码的工作？

Sub WOS() Function WOS(BOP, StartPosn As Range) Set myRange = Range(StartPosn, StartPosn.End(xlToRight)) Dim lupvals() ReDim lupvals(1 To myRange.Cells.Count) i = 1 For Each cll In myRange.Cells lupvals(i) = Application.Sum(Range(StartPosn, cll)) i = i + 1 Next cll xx = Application.Match(BOP, lupvals) If IsError(xx) And lupvals(1) >= BOP Then WOS = BOP / lupvals(1) Else If xx = UBound(lupvals) And (BOP - lupvals(xx)) > 0 Then WOS = "n/a" Else WOS = xx + (BOP - lupvals(xx)) / myRange(xx + 1) End If End If End Function 

Answer 1

您定义了子WOS和function。 只留下其中一个。 尝试第一排子WOS（）