Excel VBA问题 - 如果那么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
NameList = pVal