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

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

1 个答案: