粘貼或刪除時VBA Vlookup運行時錯誤

Question

除非您嘗試刪除列中的多個單元格或同時刪除多個單元格，否則一切似乎都很好。 這些操作中的任何一個都會導致相同的運行時錯誤，並參考vba中的vlookup行。

此主頁上有2個不同的列，並且如果您在任一列上嘗試這些操作，都會得到相同的錯誤。 我已經提到了有關運行時1004的其他鏈接，這與我在此處遇到的問題不同。

selectedNa = Target.Value
If Target.Column = 8 Then
    selectedNum = Application.VLookup(selectedNa, Worksheets("OPP Codes").Range("opp_code"), 2, False)

    If Not IsError(selectedNum) Then
        Target.Value = selectedNum
    End If
End If

selectedNa = Target.Value

If Target.Column = 7 Then
    selectedNum = Application.VLookup(selectedNa, Worksheets("OPP Codes").Range("opp_service"), 2, False)

    If Not IsError(selectedNum) Then
        Target.Value = selectedNum
    End If
End If

我只是希望能夠粘貼到列中的多個行中，或者刪除多個單元格而不會發生此錯誤。

Answer 1

如果Target.Cells.Count> 1，則在上面的代碼之前退出Sub。 –斯科特·克萊納（Scott Craner）