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

我们在这里寻找快乐。