vba - 如何找到特定单元格并将其设为 ActiveCell

Question

我正在编写一个 VBA 代码，该代码将在 Excel 中打开我的工作簿中的特定工作表，然后在 A 列中查找值为“TOTAL”的单元格。然后必须将其设置为 ActiveCell，以便我的宏的其余部分可以对包含此单元格的行执行操作。

我希望这样当用户运行宏时，会立即专门选择该单元格。运行宏后，该单元格的位置将发生变化，因此无论该值位于哪个单元格中，我都需要它工作。每次运行宏时，都会在包含“TOTAL”的行上方添加一个新行，因此包含“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