vba - 特定の名前のセルを見つける VBA スクリプト

Question

私が達成しようとしていることに似た多くの投稿を見つけましたが、変更して機能させることができたものは何もありません. 2 つのスプレッドシートがあり、スプレッドシート 2 で「電球」と言う特定の名前のセルを見つけて、隣接する値 (その下) をスプレッドシート 1 のセル A2 にコピーする VBA スクリプトが必要です。助けていただければ幸いです

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