VBA Excelstring数据typesvariables赋值

我正在尝试为CurrentClientvariables设置一个值，我已经在下面定义了它，然后用它来计算它在一个范围内发生的次数。 我不知道我在这里做错了什么。 这是给我错误：“运行时错误9下标超出范围”，在步骤中它将Sheet 2单元格A2的值分配给Currentclient。

请帮忙。

Sub GetValue() Dim ClientCnt As Integer Dim CurrentClient As String CurrentClient = Sheets("Sheet 2").Range("A2").Text ClientCnt = Application.WorksheetFunction.CountIf(Range("A:A"), CurrentClient) End Sub 

Answer 1

使用Sheet2

而不是

工作表2