Excel宏用于插入具有从一个工作表到另一个工作表的具有特定值的单元格的行

Question

使用已分配给下面的宏的命令按钮：在工作表“更新列表”中我试图搜索第18列中具有值为“等待响应”的单元格的所有行，然后插入它进入工作表“响应要求”中的表格。我想确保只插入了这些行的值，并且不会覆盖“需要响应”表中包含数据的行。

我能够将第18列中包含单元格的行的值粘贴为“等待响应”...但我还没弄清楚如何不覆盖“响应”中当前存在的数据必需的“工作表。我试图插入代码，在每个新行插入”需要响应“表中之前添加一个空行...但是出错了。

Sub SearchForString()
Dim LSearchRow As Long
Dim LCopyToRow As Long
Dim wksInput As Worksheet
Dim wksOutput As Worksheet

On Error GoTo Err_Execute

Set wksOutput = ThisWorkbook.Worksheets("Response Required")

Set wksInput = ThisWorkbook.Worksheets("Updated List")

LCopyToRow = 5


For LSearchRow = 4 To wksInput.UsedRange.Rows.Count
          If wksInput.Cells(LSearchRow, 18) = "Awaiting Response" Then
          wksInput.Rows(LSearchRow).Copy
          wksOutput.Cells(LCopyToRow, 1).PasteSpecial xlPasteValues
        LCopyToRow = LCopyToRow + 1


 End If

Next LSearchRow

With wksInput
    .Activate
    .Range("B4").Select
End With

   MsgBox "All matching data has been copied."

Exit Sub
Err_Execute:
    MsgBox "An error occurred. Number: " & Err.Number & " Description: " & Err.Description
End Sub

谢谢！