编写一个 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