編寫一個 Excel 宏來查找和賦值，復制該值並粘貼到單元格中

Question

我想寫一個 excel VBA 宏到

• 在表中查找值“新成員”（名為“array1”）
• 查看並復制找到的項目左側的單元格 5 個單元格
• 粘貼到單元格 G5
• 如果未找到值“新成員”，則在單元格 G5 中寫入“未找到”

我試過各種版本的

        Cells.Find("New Member").Activate
        ActiveCell.Offset(0, -5).Range("array1").Select
        Selection.Copy
     Range("????").Select
         ActiveSheet.Paste
        If aaa = "" Then
        MsgBox "nope"
        Else

        Range("G5").Select
        ActiveSheet.Paste

我的vba excel宏技能很新。 謝謝！

Answer 1

你可以在沒有所有選擇/激活的東西的情況下做到這一點。

Dim rngFound As Range

Set rngFound = Range("Array1").Cells.Find("New Member")
  
If rngFound Is Nothing Then
    Range("G5").Value = "Not Found"
Else
    rngFound.Offset(,-5).Resize(,5).Copy Range("G5")
End If