如何find一个特定的单元格，并使其成为ActiveCell

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

我想要这样，当用户运行macros时，这个单元格是专门select的。 这个单元格的位置在macros运行后会改变，所以无论这个值是什么单元格，我都需要它的工作。每次macros运行时，在包含“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 

Answer 2

尝试这个：

 Sub activateCellContainingTOTAL() 'Go to the worksheet Worsheets("Project Total").Activate 'Start going down column A to see if you find the total dim loopBool as Boolean loopBool = True Worksheets("Project Total").Range("A1").Activate Do While loopBool=True if Activecell.value = "TOTAL" then loop = false else activecell.offset(1, 0).Activate end if loop End sub