把IF替换为IIF行不行？

秋水兄说的对。
if要配then，是语句。
iif是函数。

你们可否帮忙编写下呢

1、“编号”工作表中“店名”“代号”两列，有标题。
2、函数运行在其他工作表。
3、代码部分：
（1）ThisWorkBook中
Private Sub Workbook_Open()
    读取
End Sub
（2）模块1中
Public 行数 As Integer
Public 店名() As String
Public 代号() As String

Function DaiHao(dianming)
    For i = 1 To 行数
        If dianming = 店名(i) Then
            DaiHao = 代号(i)
            Exit For
        End If
    Next i
    If i > 行数 Then DaiHao = "尚无此店"
End Function

Sub 读取()
    Worksheets("编号").Activate
    行数 = ActiveSheet.UsedRange.Rows.Count - 1
    ReDim 店名(行数)
    ReDim 代号(行数)
    For i = 1 To 行数
        店名(i) = Cells(i + 1, 1)
        代号(i) = Cells(i + 1, 2)
    Next i
End Sub
4、使用时
=daihao（A5）