如果一个单元格包含特定的文本，请将整行和下两行复制到Excel 2013中的下一张表格中

我对VBA非常陌生，我需要一些帮助。

我们有100个logging，如图所示

我想将其中有“图层名称”的行和下两行（几何和特征计数）复制到下一个图纸。 我试着用这里提到的代码， 如果单元格包含特定的文本，复制整行+下一行当然，所有的'1'改为'2'。 但它没有工作。 任何forms的帮助将不胜感激

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