基于更改单元格值复制行

当我search一种基于列中的值复制行的方法时，我总是碰到这段代码 。 我遇到的问题是，我不想每次运行表时都使用同一个短语。 我希望它根据单元格B18中的内容更改它的拷贝次数，而不是每次使用相同的值。 我链接了上面我看到的macros，但具体的代码行是：

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

而不是“邮箱”，我想使用单元格B18的内容“仪表板”

任何帮助，将不胜感激！

Answer 1

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

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