如果單元格包含特定文本，請將整行和接下來的兩行復制到excel 2013中的下一張工作表

Question

我是VBA的新手，我需要一些幫助。

如圖所示，我們有100條記錄

我想將其中具有“圖層名稱”的行以及接下來的兩行（幾何和要素計數）復制到下一張工作表。 我嘗試使用此處提到的代碼， 如果單元格包含特定文本，則復制整行+下一行 ，將所有的“ 1”更改為“ 2”。 但這沒有用。 任何形式的幫助將不勝感激

Answer 1

嘗試這個：

Sub layer()
j = 1
    For i = 1 To 100
      If Left(Cells(i, 1), 10) = "Layer name" Then
        For k = 0 To 2
          Sheets(2).Cells(j + k, 1) = Cells(i + k, 1)
        Next k
        j = j + 3
      End If
    Next i
End Sub

Answer 2

嘗試這個：

Sub Test()
For Each Cell In Sheets(1).Range("A:A")

If Left(Cell.Value, 11) = "Layer name:" Then
    matchRow = Cell.Row
    Rows(matchRow & ":" & matchRow + 2).Select
    Selection.Copy

    Sheets(2).Select
    lastRow = ActiveSheet.UsedRange.Rows.Count
    If lastRow > 1 Then lastRow = lastRow + 2
    ActiveSheet.Range("A" & lastRow).Select
    ActiveSheet.Paste
    Sheets(1).Select
End If
Next
End Sub