根據更改的單元格值復制行

Question

在尋找一種基於列中的值復制行的方法時，我會不斷遇到此代碼 。 我遇到的問題是，我每次運行表時都沒有使用相同的短語。 我希望它根據單元格B18中的內容來更改它復制的內容，而不是每次都使用相同的值。 我鏈接了上面已經看到的宏，但是特定的代碼行是：

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