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