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

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

您尚未指明要将材料粘贴到何处，但：

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

---

我们在这里寻找幸福。

到目前为止，你尝试了什么？你在谷歌上搜索了什么？这应该很容易找到一个快速的谷歌搜索。嗨，谢谢你的帮助。我使用了您建议的代码，它确实找到并突出显示了必要的文本。在回答另一个答案时，让我进一步解释：我正在准备一个表单，我需要一个宏，它将复制四行空白表格——这是该代码突出显示的四行。我的代码的第一部分需要突出显示行，复制它们，并将它们作为第二个四行块插入。这可能需要执行多次，以添加4、8或12行。第二段代码将需要找到任何额外的四行集，并删除整行。好的，更新。。。我已经完成了第一部分！现在，下一部分是确定我有多少行块（我猜这是一个“countif”函数），然后删除除一行之外的所有四行块。我正在掌握诀窍，但很慢。。。