[求助]这样的查找的公式怎样写？？？

sz1437

某列中有＂每一期返利２％＂等数据，注意：单元格中字数不等，目的：通过一定的公式把２％（也可能是其他比例３３％等）取出来同时转换为数值型以进行计算．[em27]

sz1437

不好意思在索引页看不见任何东西，不过数据页中正是我要的意思，我考虑过用函数来实现这种功能，但是有一点想不通。用文本函数先用right()函数从右边找到”％“然后向前取一位，然后转换为数字型进行计算，但是遇到是20％和5％这样位数不一致的情况就没法判断？？？

sz1437

去试一试，ＴＫＳ

sqac

'本案例中的自定义函数
'sheets("index")本来就什么都没有,本函数适用于所有工作表
'right函数返回最右边的字符,如果%后仍有字符将出错,所以本案例中用mid函数

Function fl(x As Integer, y As Integer)
    Dim a As String
    Dim i As Integer, j As Integer
    On Error GoTo value
    a = ActiveSheet.Cells(x, y).Text
    '下面此行解决百分数前面没有字符串的问题,上面案例中没有,请添加
    a = " " & a
    'i确定%的位置
    i = Application.WorksheetFunction.Search("%", a, 1)
   
    '找到%前面第一个非数字后,确定函数的值
    For j = i - 1 To 1 Step -1
        If Val(Mid(a, j, 1)) <> Mid(a, j, 1) Then
            fl = Mid(a, j + 1, i - j)
            Exit Function
        End If
    Next
'下面代码也是最新添加,用于解决目标单元格中没有%地问题
value:
    MsgBox "目标单元格中没有%,请核对！", , "世权电算"
    fl = ""
End Function

sqac

可通过建立一个自定义函数来实现，如附件，函数公式为“＝fl（x，y）”，其中x、y表示需要查找单元格的行列数。[upload=zip]uploadImages/200292920172337267.zip[/upload]