使用 vlookup 结果更新列数据的宏答案

【问题标题】：Macro to update column data with vlookup result使用 vlookup 结果更新列数据的宏
【发布时间】：2018-08-03 17:14:47
【问题描述】：

我有两个电子表格，Sheet1 和 Sheet2。

Sheet2 将粘贴从 B 列中具有唯一 ID 的第三方收到的大量信息，我目前正在使用 vlookup 但电子表格变得非常大并且需要很长时间才能加载和保存.

在工作表 1 中，我想使用宏插入与 B 列中唯一 ID 匹配的 MACRO 的 vlookup 结果，并显示工作表 2 中 c 列的值。

希望这是有道理的，谢谢！！

尝试了很多：

Sub UPDATE()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    v1 = s1.Range("A2")
    v2 = s1.Range("B2")
    s2.Activate
    For Each r In Intersect(ActiveSheet.UsedRange, Range("B:B"))
        If r.Value = v1 Then
            r.Offset(0, 1).Value = v2
        End If
    Next
End Sub

【问题讨论】：

我认为您误解了 Stack Overflow 的工作原理。这不是免费的代码编写服务。请阅读How to Ask 和No attempt was made。然后edit您的问题并向我们展示您已经尝试过的内容。
我想你误解了如何礼貌地称呼人，键盘侠。我已经尝试了许多选择，但收效甚微，因此，作为类似的问题，我要求提供简单的建议，我不需要你自己的不相关的 cmets。
我怎么不礼貌了？我恳请您“请”阅读如何提出一个好问题，因为我们无法回答您没有向我们展示的代码问题。但是我不得不再次问你，因为它仍然不清楚。你能用截图来说明这个问题吗？这将有助于了解您正在尝试做什么。

标签： vba excel

【解决方案1】：

如果您可以在问题字段中发布非问题，那么我可以在答案字段中发布非答案吗？

你现在需要的帮助不是你有点，有点，但不是真正要求的帮助。你只是还不知道而已。

如果我停止在字里行间判断您的意图，而忽略您对真正有用的评论的侮辱性回应。如果我花时间和精力专注于您的问题，并在语义上将您的需求转化为问题。那么你仍然不会得到你所要求的。

我来演示一下。

包含 2 张工作表的大型工作簿加载和保存速度很慢。大概是因为它的大小和众多的 vlookup 功能。为了提高性能，您希望工作表 1 上的宏在工作表 2 上“插入来自 MACRO 的 vlookup 结果”。

这可能会让您大吃一惊。如果一个公式已经优化，那么用另一个公式替换它不会提高性能。即使该公式是一个 vlookup，即使该 vlookup 是由 MACRO 放置的。实际上，它会更慢，因为您仍在计算 vlookup，现在您已经添加了在工作表 1 上运行宏和在工作表 2 上运行宏的开销。在我看来，您可能会通过更改您的计算设置保存前计算，打开时不刷新或计算。这不会缩短您的保存时间，但打开和处理文档应该更快。

这是一个你没有要求的答案，但它很弱，而且对于找到根源并没有多大作用。我真的很想帮忙，所以我不会停下来，我会深入研究您共享的代码，并专注于您认为问题所在的部分。哦，你没有说他们可能在哪里。没什么大不了的，这是一个很短的块，而且我几乎是 VBA 读写能力，我敢肯定，当我在没有访问测试数据或运行时环境的情况下逐步通过它时，修复错误代码不会有任何问题。小菜一碟！

嗯……你想做什么？我想我明白你说你想要什么；但我不明白你实际上是怎么做的。我会用你给我的东西工作，但它并不多，所以我希望你不要抱太大的期望。

表 1 和 2 已设置。 2 被激活，这个 sub 开始使用它；因此，这必须是工作表 2 MACRO。这如何与工作表 1 宏交互？你确定那个没有问题吗？

Hrmmmm，我读过一点关于十字路口速度的信息。如果我没记错的话，它应该是相当快的，这可能是一个不错的选择。我必须记住这一点。呃，B:B，整个专栏？您通常可以通过缩小约束来获得性能，但在这种情况下我不确定。也许交叉点是短路每一行，我应该研究一下。

我必须假设 v1 和 v2 是变体，因为它们没有被声明，并且没有提供关于选项显式或公共范围变量的信息。您必须小心变体，因为它们可以更改类型并导致您整天抛出错误。特别是如果您的代码不够清晰，无法一眼识别它们。案例和要点，您分配 2 个变体等于一个范围，这是故意的还是您忘记了单词集？再往下，您将范围的值分配给相同的变体，让我猜测您的意图。

您的数据是否使用字符串？如果是，那么 value2 应该比 value 快。

我对你的循环感到困惑我不知道你为什么会有它或者你为什么要做你所做的事情。您说您在 B 中粘贴了 vlookup 结果 - 所以您阅读它是有道理的。但是为什么要循环呢？您计算了一个有效范围，为什么不一步将 if 写入数组，而不是可能数百或数千？你为什么要写到第 2 页的 C 列？我会期待 sheet1。

等等，就这样？这就是你的代码吗？它们一定是别的东西，因为我无法从你所在的地方到达你说你想去的地方，而不像你的个人代码编写服务一样。

原来如此。详细地。真正的尝试给你你所要求的。我已经花了 2 个多小时伸出援手，现在你离你的目标还有多远？

可能不多。

不出所料，最有帮助的信息，即最接近目标的信息，是在第一条评论中提供给你的，它反映了你以你的方式做出回应的方式很糟糕。

在我看来，您似乎还没有弄清楚您需要知道什么。我将从显式选项开始。然后在工作表之间传输数据。然后将范围与数组一起使用。这应该使您达到我们可以真正帮助您的程度。这是 3 个主题，其中 1 个是 20 秒阅读。

祝你好运，并尝试失去态度。

【讨论】：