Excel VBA : how do I call VLOOKUP if condition is met?

Question

我有一个来自 Oracle 的数据集，但 E 列中的许多记录缺少 GEO 数据(AMER、EMEA、APAC)，而是显示“-”。我正在使用 VB 格式化和处理这些数据，除了这一部分之外，我一切正常。

我想要做的是调用 VLOOKUP 公式，根据 J 列中显示的国家/地区名称，将这些“-”值替换为正确的 GEO。应绕过已存在 GEO 的所有记录。不幸的是，我为此构建的代码覆盖了每条记录:

For z = 1 To LR
    x = Application.VLookup(Cells(z, "J"), Sheets("MasterTerritoryList").Columns("A:F"), 6, False)
    If Not (IsError(x)) Then
       Cells(z, "E").Value = x
    End If
Next z

有人可以帮我演示如何读取 E 列中的数据并仅替换那些等于“-”的值吗？

非常感谢!!

Answer 1

  For z = 1 To LR
      If Cells(z, "E").text = "-" Then ' <-------- Add this test
        X = Application.VLookup(Cells(z, "J"), Sheets("MasterTerritoryList").Columns("A:F"), 6, False)
        If Not (IsError(X)) Then Cells(z, "E").Value = X
      End If
  Next z