vba - 将找到具有特定名称的单元格的 VBA 脚本

Question

我发现了许多与我想要完成的内容相似的帖子，但我无法修改和制作任何内容。我有两个电子表格，我需要一个 VBA 脚本，它会找到一个具有特定名称的单元格，让我们在电子表格 2 中说“灯泡”，然后将相邻的值（在其下方）复制到电子表格 1 上的单元格 A2。将不胜感激任何帮助

Answer 1

如果您实际上是在某个单元格中查找文本（如标题），并且您想要复制标题和该标题下方的值，您可以执行以下操作：

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