在宏函数中使用 Vlookup答案

【问题标题】：Using Vlookup in a macro function在宏函数中使用 Vlookup
【发布时间】：2015-02-25 04:03:09
【问题描述】：

我需要对每个单元格使用 Vlookup 宏 =VLOOKUP(E2,[gpic.xlsx]Sheet1!$A:$D,4,FALSE) 直到它结束。我不确定如何使用长而不是范围。当我使用范围时，它有时会超出，因为我预测错误并且我希望一切都是自动化的，有人可以帮忙吗？而不是 E2，我需要它来遍历所有这些，但我想将它合并到我的宏中。

Sub Work()
Dim LR As Long
Dim row As String
row = "E2"
row = "E" & x
LR = Range("E" & Rows.Count).End(xlUp).row
Range(Columns(6), Columns(7)).Select
For x = 0 To 2
row = "E" & x
Range("F2:F" & LR).Formula = "=VLOOKUP(" & row & ",[gpic.xlsx]Sheet1!$A:$D,4,FALSE)"
Next




End Sub

【问题讨论】：

您想对每一行都这样做吗？ (E2, E3, E4, ...)
可能记录一个宏...做一些研究...编辑它...然后分享您对 stackoverflow 的一些研究...
epsilon，不是每一行都一直沿 E 列向下，我有 Vasim，让我发布，等等。
Sub Macro11() ' ' Macro11 Macro ' ' Selection.AutoFill Destination:=Range("F2:F33547"), Type:=xlFillDefault Range("F2:F33547").Select End Sub
这是我录制的宏，但它超出了我的其他列长度，我希望它是自动化的。我不想检查其他工作簿的列长度然后更改我的宏

标签： vba excel vlookup

【解决方案1】：

为了扩展 JDuarteDJ 所说的内容，使用变量循环遍历行可能效果最好。但是，您提到有时您错误地预测了行数。你可以使用：

rowCount = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row

这将为您提供 F 列中包含某些内容的行数。然后您可以执行 JDuarteDJ 仅提到的相同循环，而不是

x = 2 到 20

你可以使用

对于 x = 2 到 rowCount
' 做前面提到的所有事情以及你需要做的任何事情
下一个

希望对你有帮助

----------更新---------------
我认为，编辑的问题是在你的 for 循环中，你正在使用：

Range("F2:F" & LR).FormulaR1C1 = "=VLOOKUP(&row&,[gpic.xlsx]Sheet1!$A:$D,4,FALSE)"

这不是迭代正确的次数。在我看来，您想要做的是从 2 循环到行数，如下所示：

对于 x = 2 到 LR
Range("F2:F" & X).FormulaR1C1 = "=VLOOKUP(&row&,[gpic.xlsx]Sheet1!$A:$D,4,FALSE)"

【讨论】：

在插入 vlookup 之前，F 列是空白的，所以我应该使用不同的列对吗？
对，我相信它会返回 1 的列数。如果您有另一列与 F 具有相同的行数，则可以使用它来获取行数。
我不确定如何实现这一点我觉得当我继续尝试时没有任何输出
Selection.AutoFill Destination:=Range(F2:8), Type:=xlFillDefault
如何将添加替换为 F(Rowcount)

【解决方案2】：

将 E2 替换为变量：

将行作为字符串变暗
行 = "E2"

然后使用循环遍历所有 E2、E3、E4 等。

对于 x=2 到 20 做
行 = "E" & x
公式 = "VLOOKUP("&row&",[gpic.xlsx]Sheet1!$A:$D,4,FALSE)"
...在这里使用您的代码...

我的 VB 可能有点生疏了 :/
希望这会有所帮助

【讨论】：

准备测试一下，我会告诉你进展如何，谢谢