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

Question

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

请帮忙。

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张