我的error handling程序只工作一次，我不明白为什么

我试图翻译一些Excel文件的命名范围的帮助。 我需要知道哪些文本尚未定义，然后将其添加到名称数据库。 为此，我使用VLOOKUP来比较单元格的实际值与数据库中的值。 我也不需要翻译数字，公式或任何不是string的东西。

我发现设法将未定义的名称添加到数据库的唯一方法是在VLOOKUP遇到错误时使用error handling程序。 问题是这个error handling程序只能工作一次，我不明白为什么。 我读过你必须使用Resume来做到这一点，我已经使用它，但它不工作。

预先感谢您的帮助，对于语法错误感到抱歉。

这是我的代码。

 Sub translation() Dim cell, cell1, cell2 As Range, search_value As String, i As Integer i = 3 For Each cell In Hoja65.Range("D3:D10") 'Range to look up for words. If IsEmpty(cell) = False And IsError(cell) = False And IsNumeric(cell) = False Then ' Enter code if the cell is not empty and is not an error ' Check if read value is equal to any exception listed in Hoja65.Range("B3:E20") For Each cell1 In Hoja65.Range("E3:E10") ' Check if read value is a formula beginning with "=", "+" or "-" or contains an hyperlink. If cell1 = cell Or InStr(1, cell.FormulaLocal, "=", vbTextCompare) = 1 Or InStr(1, cell.FormulaLocal, "+", vbTextCompare) = 1 Or InStr(1, cell.FormulaLocal, "-", vbTextCompare) = 1 Or InStr(1, cell.Value, "http", vbTextCompare) <> 0 Then GoTo continue End If Next cell1 ' If read value is not equal to exception On Error GoTo handler search_value = Application.WorksheetFunction.VLookup(cell.Value, Hoja64.Range("F9:G550"), 2, False) ' Range where the names are defined. cell.Value = "=" & search_value 'Change read to defined name. End If continue: Next cell MsgBox "Execution finished" Exit Sub ' VERY IMPORTANT: This line must ALWAYS precede any error handler in order to avoid an infinite loop. handler: ' Executes only if VLOOKUP doesn't find a match With Hoja65 For Each cell2 In .Range(.Cells(3, 3), .Cells(i, 3)) If cell2 = cell Then GoTo continue Else .Cells(i, 2) = cell.Address ' Save address of unsaved name. .Cells(i, 3) = cell.Value ' Save value of unsaved name. End If i = i + 1 Next cell2 End With Resume continue 'ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Select 'Selection.Formula = "=title270" End Sub 

Answer 1

  If cell2 = cell Then GoTo continue 

这就是为什么。 你不会跳入/跳出error handling子程序。 GoTo不会“重置”错误状态，因此您将重新进入Err.Number <> 0的“快乐path”，即您仍然处于错误状态。

将GoToreplace成Resume ，你应该回到正轨。

  If cell2 = cell Then Resume continue