类型不匹配问题

Sub 统计消费和充值金额()
    Dim wsData As Worksheet
    Dim wsSummary As Worksheet
    Dim Name1_lastRow As Long
    Dim Name2_lastRow As Long
    Dim i As Integer
    Dim j As Integer
     Dim k As Integer
    Dim totalExpense(3800) As Long
    Dim totalRecharge(3800) As Long
    Dim customer(3800) As String
    Dim bcustomer(23610) As String
    Dim expense As Long
    Dim recharge As Long
   
   
    ' 设置数据来源和结果输出的工作表
    Set wsData = ThisWorkbook.Sheets("日明细")
    Set wsSummary = ThisWorkbook.Sheets("余款统计")
    Set wsName = ThisWorkbook.Sheets("客户名单")
   
    ' 清除原有的统计结果
    'wsSummary.Range("A2:C" & wsSummary.Cells(Rows.Count, "A").End(xlUp).Row).Clear
   
    ' 获取数据最后一行
    Name1_lastRow = wsData.Cells(Rows.Count, "A").End(xlUp).Row
    Name2_lastRow = wsName.Cells(Rows.Count, "A").End(xlUp).Row
    ' 初始化统计值

For i = 1 To 3710
    totalExpense(i) = 0 ' 将数组元素初始化为 0
Next i

For i = 1 To 3710
    totalRecharge(i) = 0 ' 将数组元素初始化为 0
Next i
   
    ' 遍历数据，进行统计
    For i = 1 To Name2_lastRow ' 假设第一行是标题，数据从第二行开始
        customer(i) = wsName.Cells(i, 1).Value ' 获取客户名称
           Next i
   
  For i = 1 To 1000
           j = 1
        For k = 1 To 23610
           bcustomer(k) = CStr(wsData.Cells(k + 1, 4).Value) ' 获取客户名假设第一行是标题，数据从第二行开始
               If bcustomer(k) = customer(i) Then
               expense = wsData.Cells(k + 1, 9).Value
               recharge = wsData.Cells(k + 1, 15).Value
               totalExpense(i) = totalExpense(i) + expense ' 累加消费金额
               totalRecharge(i) = totalRecharge(i) + recharge  '累加充值金额
            End If
        Next k
  Next i
            For i = 1 To 3710
            wsSummary.Cells(i + 1, 1).Value = customer(i) ' 将 arr1 的元素填入第一列
            wsSummary.Cells(i + 1, 2).Value = totalExpense(i) ' 将 arr2 的元素填入第二列
            wsSummary.Cells(i + 1, 3).Value = totalRecharge(i)  '将 arr3 的元素填入第三列
             wsSummary.Cells(i + 1, 4).Value = totalRecharge(i) - totalExpense(i)
             Next i




End Sub


我发出完整代码，一直找不出错误。