代码：
Function 客户分类(s)
Dim score, level, s
score = s
If score < 30 Then
level = "温柔型"
ElseIf score < 60 Then
level = "冲动型"
ElseIf score < 90 Then
level = "暴躁型"
Else
level = "狂暴型"
End If
客户分类 = level
End Function
运行结果为“=客户分类(b2)”，没有显示按理说应该是“冲动型”，我确定b2是数字格式，然后客户分类这个自定义函数也是从自定义函数”直接引用的。所以大佬能不能帮忙想想到底是哪里出问题了呢。

交代一下背景:在学习调用子函数，然后老师让我们用以下的vba代码展示后，又要用函数形式再试一遍。
全部代码如下：
Sub 客户分类解决方案()
Dim i, score, level
i = 2
Do While Cells(i, 1) <> ""
score = Cells(i, 2)
level = 客户分类(score)
Cells(i, 3) = level
i = i + 1
Loop
End Sub
Function 客户分类(s)
Dim score, level ，s
score = s
If score < 30 Then
level = "温柔型"
ElseIf score < 60 Then
level = "冲动型"
ElseIf score < 90 Then
level = "暴躁型"
Elselevel = "狂暴型"
End If
客户分类 = level
End Function

太不规范了，变量类型函数类型全都没有声明

你的数学没学好吧大概，10 分 同时小于 30 60 90 结果符合了全部集合的要求。你的集合没分好，所以全部都包含在＜90的集合里面了 会有多个结果 按照excel的惯例通常会现实最后执行的一个。这是重新赋值了

客户分类=“冲动型”
你客户分类这个函数都没赋予返回值

而且每次一看到这些书写格式就烦，最基本的语句流程控制是需要空格的，这样写完自己看都懵

Function 客户分类(score%) As String
Dim level$
If score < 30 Then
level = "温柔型"
ElseIf score < 60 Then
level = "冲动型"
ElseIf score < 90 Then
level = "暴躁型"
Else
level = "狂暴型"
End If
客户分类 = level
End Function