VBA脚本，用于查找具有特定名称的单元格

我已经找到了许多类似于我试图完成的帖子，但没有任何东西是我能够修改和工作的。 我有两个电子表格，我需要一个VBA脚本，该脚本将在电子表格2中找到一个具有特定名称的单元格，比如说“灯泡”，然后将相邻值（在其下方）复制到电子表格1上的单元格A2。

---

如果您确实在某个单元格（如标题）中查找文本，并且希望复制标题及其下的值，请执行以下操作，以获取帮助

Sub LightBulb()
Dim rng As Range
Dim fnd As String
fnd = "Light Bulb"

Sheets("Sheet2").Activate

Set rng = Sheets("Sheet2").Cells.Find(fnd)

If Not rng Is Nothing Then
    Range(Cells(rng.Row, rng.Column), _
      Cells(Rows.Count, rng.Column).End(xlUp)).Copy _
      Sheets("Sheet1").Range("A2")
      Cells(1, 1).Select
End If
End Sub

---

当你说“名称”时，你是指引用单个单元格的命名范围，还是指文本“灯泡”实际上在单元格中？它工作得很好，非常感谢，唯一的一点是它还用值复制表名。如何更改它，使其仅复制没有表名的值。塔恩克索，你在用桌子！这实际上使这更容易（但不同）。现在已经晚了，所以请明天再来，我将根据一个表添加如何执行。