VBA编码 - 在Excel中复制一系列单元格

Question

如果这是一件简单的事情，但是我在多年不使用的情况下重新学习VBA，我们抱歉。我有一个工作表，我需要根据该单元格内的文本找到该工作簿中的特定单元格。然后我需要复制包含这个单元格的整行，以及下面的三行，使得整行的范围为四个。任何帮助，将不胜感激。

Answer 1

您还没有表示要在其中的粘贴材料，而且：

Sub qwerty() 
    Dim s As String, sh As Worksheet, r As Range 

    s = "happiness" 
    For Each sh In Sheets 
     Set r = Cells.Find(What:=s) 
     If Not r Is Nothing Then 
      r.Resize(4, 1).EntireRow.Copy 
     End If 
    Next sh 
End Sub 

在这里，我们正在寻找幸福。