[已解决]自定函数返回没有的数字

mate66

自定函数返回没有的数字

最佳答案

月排行榜 / 总排行榜

爱疯

2017-9-4 14:45

Function f(ParamArray x()) As String
    Dim y, z
    f = "0123456789"
    For Each y In x
        If IsArray(y) Then
            For Each z In y
                f = VBA.Replace(f, z, "")
            Next z
        Else
            f = VBA.Replace(f, y, "")
        End If
    Next y
End Function

跳转到最佳答案楼层

爱疯

Function f(ParamArray x()) As String
    Dim y, z
    f = "0123456789"
    For Each y In x
        If IsArray(y) Then
            For Each z In y
                f = VBA.Replace(f, z, "")
            Next z
        Else
            f = VBA.Replace(f, y, "")
        End If
    Next y
End Function

mate66

爱疯 发表于 2017-9-4 14:45
Function f(ParamArray x()) As String
    Dim y, z
    f = "0123456789"

这么挺好的么，那个表情？