search列 – 将整行移动到另一个工作表中

我一直在试图弄清楚如何使这项工作一段时间，所以我会给你们一个尝试！

我从列AQ和行1-5000 Sheet1中有一个事实列表。

在列E中，我将会写下不同的单词。 让我们只是说这个词将是“是”或“否”。

我想要一个macros，将单词“是”的所有行复制到Sheet2中。

我find了一种可行的方法，但问题是，这将复制到表2中的第2行。 所以，可以说我改变Sheet2上的一些信息，一个星期后，我再次使用macros。 这将使macros覆盖所做的更改。

不知道你们是否明白我在这里想说什么，但我希望如此！

我想要一个macros来移动行，而不是复制/粘贴它。 这将使Sheet1上的行数变小，并且可以在sheet2上的列表中更改信息。

我希望你能得到我所要求的。

下面是现在使用的macros：

Sub Makro2() Dim LSearchRow As Long Dim LCopyToRow As Long Dim wksInput As Worksheet Dim wksOutput As Worksheet On Error GoTo Err_Execute Set wksOutput = Sheets("Sheet2") Set wksInput = ThisWorkbook.Worksheets("Sheet1") LCopyToRow = 2 For LSearchRow = 2 To wksInput.UsedRange.Rows.Count If wksInput.Cells(LSearchRow, 2) = "TEST" Then wksInput.Rows(LSearchRow).Copy wksOutput.Cells(LCopyToRow, 1) LCopyToRow = LCopyToRow + 1 End If Next LSearchRow With wksInput .Activate .Range("A3").Select End With Exit Sub Err_Execute: MsgBox "An error occurred. Number: " & Err.Number & " Description: " & Err.Description End sub 

Answer 1

更换：

 LCopyToRow=2 

有：

 With wksOutput.UsedRange LCopyToRow = .Rows.Count + .Row End With