vba - 使用 VBA Vlookup 在两个工作表之间工作并填充整列

Question

我需要对此进行编码 VLOOKUP 读取宏:

专栏(A:B) “Reach”表的，然后将这些值应用到

专栏"L" "TV"的使用列 "A" 的工作表作为唯一标识符。

=VLOOKUP(A2,Reach!A:B,2,FALSE)将是我将输入到“列 "L"”的 Excel 代码"TV"的片材。

With ThisWorkbook.Sheets("TV")
    .Range("L2").Formula = "=VLOOKUP(A2,Reach!A:B,2,FALSE)"
End With

这是我尝试过的代码，但它只填充 L2 单元格。

我如何才能将其应用于整个列？

Answer 1

在这个问题的原始版本中，您显示了以下代码:

Dim lr As Long

With ThisWorkbook.Worksheets("TV")
    lr = .Cells(.Rows.Count, "M").End(xlUp).Row
    Range("L2:L") = "=VLOOKUP(A2,Reach!A:B,2,FALSE),0"
End With

如果您通过将无效范围 "L2:L" 更改为 "L2:L"& lr(并更改 Range到 .Range 以便它相当于 ThisWorkbook.Worksheets("TV").Range) 您的代码应该可以工作:

Dim lr As Long

With ThisWorkbook.Worksheets("TV")
    lr = .Cells(.Rows.Count, "M").End(xlUp).Row
    .Range("L2:L" & lr) = "=VLOOKUP(A2,Reach!A:B,2,FALSE)"
End With

(好吧，只要 M 列是检查最后一行时使用的正确列，它就应该有效。就我个人而言，我会使用 A 列进行检查，因为您使用的公式似乎暗示将有对于您想要在 L 列中包含此公式的每一行，在 A 列中输入一个值。)

注意:我刚刚注意到您的原始公式末尾有一个杂散的 ,0 - 这也会导致问题。我也把它删除了。