对于范围内的每个单元格，如果单元格值不为空，则 vlookup

Question

由于运行时错误“1004”：应用程序定义或对象定义错误，我正在努力使以下代码正常运行。

通常当我遇到此错误是由于工作表保护引起的，我已确保工作表不受保护，因此子开始处的行。

我将在这里花费场景和最终目标：

Sheet1 = 实时合同

此工作表包含一个 6 列和动态行数的表格。 第 1 列包含合同参考编号。第 2 - 6 列与此无关。

表 4 = 合同金额

此表包含所有合同、相应部门和合同价值。

目标

创建一个可以通过用户窗体按钮调用的模块。

模块需要查看 sheet1 的 A 列，并且对于每个单元格 - 如果有值 - 在 G 列中创建一个 vlookup 并使用以下参数。

Lookup Value = Cell.offset(0, -6)

Table array = Sheet4.range("A3:C676")

Col_Index_Num = 1

FALSE - Exact match

模块需要对范围内的所有单元格重复此过程。

现在是我制作的：

 Worksheets("Live Contracts").Unprotect

Dim rng As range
Dim lastrow As Long
Dim cell As range
Dim contractrange As range

'Find dynamic range
lastrow = Worksheets("Live Contracts").range("A" & Rows.Count).End(xlUp).Row

Set contractrange = Worksheets("Contract Sums").range("A3:C676")
Set rng = Worksheets("Live Contracts").range("A2:A" & lastrow)

For Each cell In rng
'If cell does not equal blank then for each cell in column A, offset to column G.
    If cell.Value <> "" Then

    'In column G, vlookup column A cell value in contractrange's column C, only return exact match
        cell.Offset(0, 6).Value = Application.VLookup(cell.Offset(0, -6), contractrange, 1, False)

        'In column H, vlookup column A cell value in contractrange's column A, only return exact match
        cell.Offset(0, 7).Value = Application.VLookup(cell.Offset(0, -7), contractrange, 3, False)
    End If
    'Repeat for all cells in range
Next cell


End Sub

以 cell.offset 开头的第一行在调试时被高亮显示

P.S 我对 VBA 比较陌生，为糟糕的代码道歉！

Answer 1

看起来您可能混淆了活动单元格的使用和您在循环中使用的Cell。 Cell 只会在完整循环迭代后更改。它不像活动单元格会在您选择不同的单元格后发生变化。

所以当你使用Cell.offset(0,6)时，Cell并没有改变，所以你不需要尝试在Vlookup中使用Cell.offset(0,-6)来返回。

试试这个：

For Each cell In rng
'If cell does not equal blank then for each cell in column A, offset to column G.
    If cell.Value <> "" Then

    'In column G, vlookup column A cell value in contractrange's column C, only return exact match
        cell.Offset(0, 6).Value = Application.VLookup(cell, contractrange, 1, False)

        'In column H, vlookup column A cell value in contractrange's column A, only return exact match
        cell.Offset(0, 7).Value = Application.VLookup(cell, contractrange, 3, False)
    End If
    'Repeat for all cells in range
Next cell


End Sub