根据更改的单元格值复制行

Question

在搜索基于列中的值复制行的方法时，我一直遇到此code。我遇到的问题是，每次我想运行表时，我都没有使用相同的短语。我希望根据单元格B18中的内容更改它复制的内容，而不是每次都使用相同的值。我链接了我上面看到的宏，但具体的代码行是：

If Range("E" & CStr(LSearchRow)).Value = "Mail Box" Then
   Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
     Selection.Copy

而不是＆＃34;邮箱＆＃34;我想在表格中使用单元格B18的内容＆＃34; Dashboard＆＃34;

任何帮助将不胜感激！

Answer 1

试试这个。请注意，Select不需要。您应该真正添加第一个范围的工作表引用和Rows。

If Range("E" & CStr(LSearchRow)).Value = sheets("Dashboard").Range("B18").Value Then
   Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Copy