vba公式逻辑不成立，有没有高手帮忙看看

sky200801

Function FindChildren(value, source As Object) As Object
    Dim pro1 As Object
    Set pro1 = CreateObject("scripting.dictionary")
    Dim st As Object
    Dim fpsno As String
    Dim rows%

    Set st = source
    rows = st.Range("C65536").End(xlUp).row

    For i = 2 To rows
        fpsno = st.Cells(i, "A")
        fpsno1 = st.Cells(i, "A")
        If publicMethod.GetRegExp(fpsno, "^" & value & "(\.\d+)?$") = 1 And fpsno <> value Then
              pro1.Add fpsno, i
        ElseIf publicMethod.GetRegExp(fpsno1, "^" & value & "(\.\d+\.\d+)?$") = 1 And fpsno1 <> value Then
           If Left(fpsno1, InStrRev(fpsno1, ".") - 1) = publicMethod.GetRegExp(fpsno, "^" & value & "(\.\d+)?$") And st.Cells(i, "E").value = "套" And st.Cells(i, "M").value = "" Then
            pro1.Add fpsno1, i
           End If         
        End If
     Next
     Set FindChildren = pro1
End Function

求助各位大神，根据图片，现在第一个IF算出了1.10.X这些编号，ElseIf算出了1.10.X.Y这些编号，第二个IF我是想让1.10.X.Y这个去掉.Y后的编号，然后E列=“套”，M列=“”，如果这些成立就将1.10.X.Y这些编号放入字典，问题点是：第二个IF的逻辑不成立。有没有什么好方法改下公式

chxw68

把文件发上来。

sky200801

chxw68 发表于 2024-9-11 08:37
把文件发上来。

上传了，帮忙看看，谢谢

sdytsxd991122

sky200801

sdytsxd991122 发表于 2024-9-11 09:11

运算结果还是不对，有文件，你可以试试

sky200801

有没有高手帮忙看看呀

sky200801

有没有大佬帮忙看看呀