vba - Excel VBA 问题 - If then ElseIf 语句

Question

我有一个我编写的 VBA 条件函数(我是个菜鸟)，它检查单元格中的名称，然后如果其中一个条件为真，则返回适当的变体，否则返回空白“”。我希望它返回默认单元格值，而不是返回空白。

例如，我有以下基于我的函数的单元格和结果:

   Cells
   A        B
1  Bob      Bob Rob Robert
2  Mike     Mike Michael
3  Dan      Dan Daniel
4  Scott  

我希望 B4 的结果返回 A4 (Scott) 中的默认值，而不是空白，如下所示:

   Cells
   A        B
1  Bob      Bob Rob Robert
2  Mike     Mike Michael
3  Dan      Dan Daniel
4  Scott    Scott

任何帮助将不胜感激:

这是我的函数(ElseIf 中不包含所有名称的缩写版本):

Function NameList(pVal As String) As String

    If pVal = "Bob" Then
        NameList = "Bob Rob Robert"
    ElseIf pVal = "Mike" Then
        NameList = "Mike Michael"
    ElseIf pVal = "Dan" Then
        NameList = "Dan Daniel"
    Else
        NameList = ""
    End If

End Function

谢谢!

Answer 1

我认为
Else<br/>
NameList = pVal
解决你的问题。