[已解决]求组下标越界的问题

chenfanch

Sub SmlCount()   
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim count0 As Variant
Dim count25 As Variant
Dim count50 As Variant
Dim count75 As Variant
Dim count100 As Variant

count0 = 0
count25 = 0
count50 = 0
count75 = 0
count100 = 0


For i = 1 To 100
  For j = 1 To 100
    For k = 1 To 100

If Workbooks("波动性_02").Cells(1, i) = "境内货币市场类" Then    ’从这行开始下标越界，麻烦给位达人帮忙解决一下，谢谢~
    If Workbooks("波动性_02").Range("C" & j) = "1" Then
       If Workbooks("波动性_02").Range("K" & k) = 0 Then
          count0 = count0 + 1
         Else
           If Workbooks("波动性_02").Range("K" & k) = 25 Then
           count25 = count25 + 1
           Else
            If Workbooks("波动性_02").Range("K" & k) = 50 Then
            count50 = count50 + 1
              Else
               If Workbooks("波动性_02").Range("K" & k) = 75 Then
               count75 = count75 + 1
                Else
                 If Workbooks("波动性_02").Range("K" & k) = 100 Then
                 count100 = count100 + 1
                 End If
               End If
            End If
          End If
       End If
    End If
End If
      Next k
    Next j
Next i


End Sub

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-7-31 11:36

好像工作薄workbooks与单元格cells之间，还差一个工作表sheets，不知我说对没有，如果有错，请高手们出手相助！

跳转到最佳答案楼层

ligh1298

好像工作薄workbooks与单元格cells之间，还差一个工作表sheets，不知我说对没有，如果有错，请高手们出手相助！

adders

Workbooks("波动性_02")后面要跟Sheets再Cells, 比如:

Workbooks("波动性_02").Sheets("Sheet1").Cells(1, i)

然后后面所有的Workbooks("波动性_02").Range这种结构也一样处理,之间要加Sheets(something...)

事后诸葛亮

for i = Lbound(arr数组) to Ubound(arr数组)

next i