编写一个Excel宏来查找和计算值，复制该值并粘贴到单元格中

我想写一个excel VBA宏到

• 在表（名为“array1”）中查找值“newmember”
• 查找并复制找到的项目左侧的单元格5
• 粘贴到单元格G5中
• 如果未找到值“New Member”，请在单元格G5中写入“not found”

我试过各种版本的

        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宏技能非常新。

---

谢谢

您可以在不使用所有选择/激活功能的情况下完成此操作

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

---

谢谢，这当然是一个改进，您是如何决定复制范围A5的，很可能我会在f列和许多行中的一行中找到我的值。我认为对A5的引用需要是动态的，如果在第9行找到值“New Member”，则成员id将在a列和第9行。谢谢，这肯定是一个改进。您是如何决定在这个场景中复制范围A5的？我很可能会在f列和许多行中的一行中找到我的值？我认为对A5的引用需要是动态的，如果在第9行G列中找到值“New Member”，那么成员id将在A列和第9行中。此外，我无法找到“新成员”（不带引号）的值，但是，该值确实存在于G列中。A5是一个输入错误-我将其更改为G5，因为您说您要复制到G5。这非常有效，谢谢！