如何找到特定的单元格并使其成为ActiveCell

Question

我正在编写一个VBA代码,它将在Excel中的工作簿中打开一个特定的工作表,然后在A列中找到值为"TOTAL"的单元格.然后必须将其设置为ActiveCell,以便我的其余宏可以对包含此单元格的行执行操作.

我想要它,以便当用户运行宏时,这个单元格是专门选择的.宏运行后,这个单元格的位置会发生变化,所以无论这个值是什么单元格,我都需要它才能工作.每次宏运行时,在包含"TOTAL"的行上方添加一个新行,因此在这个细胞不断变化.

到目前为止,我已经提出了这个问题,只是通过论坛阅读.它仍然不起作用,但我是这种语言的新手,我无法确定错误的位置.

Sub Macro2()

    Dim C As Range
    Worksheets("Project Total").Select
    With Selection
        C = .Find("TOTAL", After:=Range("A2"), MatchCase:=True)
    End With

End Sub

Answer 1

试试这个:

Sub Macro2()
    Dim cl As Range

    With Worksheets("Project Total").Cells
        Set cl = .Find("TOTAL", After:=.Range("A2"), LookIn:=xlValues)
        If Not cl Is Nothing Then
            cl.Select
        End If
    End With
End Sub