【问题标题】:Find blank cell, vlookup, copy, paste查找空白单元格、vlookup、复制、粘贴
【发布时间】:2020-04-27 00:30:26
【问题描述】:

首先我对vba一无所知,我可以录制一个宏并在网上找到我需要的东西,并根据需要进行一些调整或将代码粘贴在一起,但我试图做的事情有问题

试图创建一个excel vba marco到

  1. 在某个单元格下方找到一个工作表上某列中的第一个空白单元格
  2. 在另一列的同一行中取值
  3. 在另一个工作表上匹配一个列
  4. 在另一列的同一行中,将所有单元格向下复制到第一个空白单元格
  5. 返回找到第一个空白单元格的第一个工作表并粘贴数据

前 在单元格 D8 和 D24 下方搜索 ws1 col D,找到一个空白单元格 B24 中的数据在 ws2 col C 中匹配或 vlookup 并匹配 C7 所以 F7 和包含数据的同一列中的每个单元格都被复制 并粘贴在 ws1 上一个空白单元格中

每次运行宏时,ws2 中的数据总是不同的

任何部分或全部帮助将不胜感激 谢谢你

【问题讨论】:

    标签: excel vba vlookup


    【解决方案1】:

    您已经确定了 5 个您可能想问的问题。要做的事情是提出五个问题,每个问题都应该得到研究和您编写的代码的支持。所以,既然你问了一个非问题,由于缺乏焦点和遵守论坛规则,版主肯定会删除它,我将给你一个非回答你的第一个问题。

    (1) 您确定了一个“特定单元格”。那是比较模糊的。即使在一个工作表上也有超过 140 万个单元格。当你决定考虑这个问题时,它们中的任何一个都可能成为你的“特定”细胞。一旦你开始编程,你就会遇到这个障碍并找到解决方案。您不应该从这里寻求解决方案,因为没有人知道什么对您来说是“确定的”。

    (2)“一列中的第一个空白单元格是用这个代码找到的。它假定“某个单元格”是A10。

    Dim FirstBlank As Range
    Set FirstBlank = ActiveSheet.Cells(10, "A").End(XlDown)
    

    (3) 然而,在某个单元格下面寻找第一个空白单元格是很不常见的。大多数时候,人们会在某一列的末尾查找最后使用的单元格。

    Dim LastUsed As Range
    Set LastUsed = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(XlUp)
    

    不同之处在于 FirstBlank 将是已使用列中任何位置的空白单元格。如果 A 列中 LastUsed 上方没有空白单元格,FirstBlank.Row 将仅与 LastUsed.Row + 1 相同。

    正如您现在看到的,您来参加聚会时准备不足。由于这个原因,这个无答案提供的帮助非常有限。我希望你现在明白为什么没有人愿意关注你所有的五个非问题。工作量太大,回报太少,如果有的话。

    尽管如此,我确实打算提供的帮助以及希望您会发现有用的帮助涉及如何处理 VBA 项目以及如何利用本网站上如此丰富的帮助。找到正确的问题往往是答案的一半,因为没有答案比引发它的问题更好。

    【讨论】:

      猜你喜欢
      • 1970-01-01
      • 1970-01-01
      • 2022-07-15
      • 1970-01-01
      • 1970-01-01
      • 1970-01-01
      • 2021-10-06
      • 2015-05-13
      • 1970-01-01
      相关资源
      最近更新 更多