填充单元时，我在运行几个单元格后会遇到运行时错误13

Question

我正在尝试构建一个代码，该代码将帮助我根据另一个工作表中的2个不同表格的团队名称填充列表。

该代码实际上在前10个单元格中运行良好，然后我突然得到一个运行时错误13“ type Inbatch”，我无法确定它的代码是什么，

我的代码是，

Sub populateteam()

Dim wsAkasaka As Worksheet
Dim wsList As Worksheet

Set wsAkasaka = ThisWorkbook.Worksheets("Akasaka")
Set wsList = ThisWorkbook.Worksheets("All Japan")

Dim consultant As String
Dim manager As String
Dim team As String

consultant = wsAkasaka.Range("b" & (ActiveCell.Row)).Value
manager = Application.VLookup(consultant, wsList.Range("a13:c200"), 3, False)
team = Application.VLookup(manager, wsList.Range("E2:F11"), 2, False)

If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = team
ActiveCell.Offset(1, 0).Select

End If


End Sub

如果有人可以给我一个启示发生以及我该如何解决。

• 编辑 我忘了写我在“团队”声明上的错误， 我取出它并用“经理”运行了代码，但对此没有任何问题，但是当我要求团队时，我会收到错误

Answer 1

问题是您将变量定义为字符串，并且如果您的vlookup返回错误（如果vlookup找不到任何东西），则错误不能施加到字符串中，您会得到不匹配错误。

因此，我建议以下内容：

' your code here …

Dim consultant As String
consultant = wsAkasaka.Range("b" & (ActiveCell.Row)).Value

Dim manager As Variant
manager = Application.VLookup(consultant, wsList.Range("a13:c200"), 3, False)

If IsError(manager) Then  ' check if consultant was found, if not exit
    MsgBox "Consultant """ & consultant & """ not found."
    Exit Sub
End If

Dim team As Variant
team = Application.VLookup(manager, wsList.Range("E2:F11"), 2, False)

If IsError(team) Then  ' check if manager was found, if not exit
    MsgBox "Manager """ & manager & """ not found."
    Exit Sub
End If

' your code here …