求帮忙解决一下vb运行出现错误9，“下标越界”的问题？

ruhong18

Sub 改变颜色()
Dim a As Long
a = Range("a1").CurrentRegion.Count
Dim alldata(100) As String
For i = 0 To a
    For ii = 1 To 9     '你要表格所有的列数
     alldata(i) = alldata(i) & Cells(i + 1, ii).Text
    Next ii
    If InStr(alldata(i), "6") > 0 Then ' "6" 里面是你要查找的特殊字符
        Rows(i + 1 & ":" & i + 1).Select
        Selection.Font.ColorIndex = 3
    End If
Next i
End Sub

大灰狼1976

不知道你的Range("a1").CurrentRegion有多大，上传附件说明。

约定的童话

Sub 改变颜色()
Dim a As Long
a = Range("a1").CurrentRegion
Dim alldata(100) As String
For i = 0 To a
    For ii = 1 To 9     '你要表格所有的列数
     alldata(i) = alldata(i) & Cells(i + 1, ii).Text
    Next ii
    If InStr(alldata(i), "6") > 0 Then ' "6" 里面是你要查找的特殊字符
        Rows(i + 1 & ":" & i + 1).Select
        Selection.Font.ColorIndex = 3
    End If
Next i
End Sub

microyip

大灰狼1976

你的附件无法说明情况，并没有出错，而且Range("a1").CurrentRegion只有第一行。

maditate

a = Range("a1").CurrentRegion.Count   ' 假设 A 值大于100，可能是10000
Dim alldata(100) As String                     ‘声明数组下标为  100，意思是说数组不大于100
For i = 0 To a                                         ’ 循环从1 到  a  .当a 为10000时，i 循环达101
    For ii = 1 To 9     '你要表格所有的列数
     alldata(i) = alldata(i) & Cells(i + 1, ii).Text             ‘  alldata(i)    alldata(101) 这个数组单元不存在，当然出错了。

mzbao

你的a想得到当前区域的单元格数还是行数。如果是行数的话，你代码应为：
a=Range("A1").CurrentRegion.Rows.Count