VBA Excel字符串数据类型变量赋值

Question

我试图为我在下面定义的CurrentClient变量设置一个值,然后用它来计算它在一个范围内出现的次数.我不知道我在这里做错了什么.它给出了错误:"运行时错误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