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