Vba 在不同的工作表中查找一些值

我试图读取一个工作表中的每一行（Get_命令），并在另一个工作表（Command_列表）的第一列中查找值；如果该值在命令列表中，我想将该行（删除一些列）复制到第三张图纸（Set_命令）

问题在于：

Command = Cells(Lrow, 1).Value

    Set fCommand = Worksheets("Command_List").Columns("A:A").Find(Command, LookIn:=xlValues)

命令正在保存我想要的内容，但fCommand始终不返回任何内容

有人能帮我找到我的错误吗

---

谢谢！=）

Find在未找到匹配单元时不返回任何内容。所以你对你使用的数据有问题。您的问题的潜在来源：

• 命令或可能的命令列表中有前导空格或尾随空格
• 您在“查找”中引用了错误的范围

---

在模块顶部添加“Option Explicit”并编译。我发现了四个未定义的变量。我能够让现有代码（在定义变量后）写入“Set_Command”表单，一些变量是在外部定义的，这就是为什么没有显示在那里的原因！=）也许你找到了Lastrow，Lastcolumn，Lrow，Lcolumn对吧？没错。但是我对四行的简单测试总是返回一个值，而在这个值中你什么也得不到。你能澄清一下你所说的“命令正在保存我想要的东西，但是fCommand总是不返回任何东西”是什么意思吗？在每次“设置fCommand”之后，“fCommand”中都有一个值变量“Command”正在保存我在单元格中的值（Lrow，1），但当我转到下一行时，它没有在“Command_List”表中读取该值，因此它fCommand将不返回任何内容，即使我在“Command_List”中有该值，我不知道我能不能解释清楚！在两张纸的A栏中张贴几行文字示例如何。

Command = Cells(Lrow, 1).Value

    Set fCommand = Worksheets("Command_List").Columns("A:A").Find(Command, LookIn:=xlValues)