数组下标越界了，求解和帮忙调试，谢谢了

raylenewu

求各位大神解释为什么 arr1(ka, j) = arr(ar + 2, j) ，说是 arr(ar + 2, j) 这个下标越界了。要怎样修改。感觉红色部分都越界了，求解
求各位大神帮忙调试一下了！感激不尽！详情请参考附件
Sub macro1()
Dim arr, ar%, maxrow%, maxcola%, ka%, j%, arr1(), a%, ra
Dim b%, maxcolb%, rb, kb%, brr1(), jb%
Dim c%, maxcolc%, rc, kc%, crr1(), jc%
Worksheets("Sheet0").Activate
maxrow = Cells(Rows.Count, 1).End(3).Row
arr = Range("a1").CurrentRegion.Resize(maxrow)
a = Range("a:a").Find("Title Block").Row 'find out Title Block row
b = Range("a:a").Find("Common").Row
c = Range("a:a").Find("Page Three").Row
maxcola = Cells(a + 1, Columns.Count).End(xlToLeft).Column 'find Part Category column
maxcolb = Cells(b + 1, Columns.Count).End(xlToLeft).Column
maxcolc = Cells(c + 1, Columns.Count).End(xlToLeft).Column
ra = Cells(a + 1, 1).Resize(, maxcola) 'take line:Part Category as array
rb = Cells(b + 1, 1).Resize(, maxcolb)
rc = Cells(c + 1, 1).Resize(, maxcolc)
ReDim arr1(1 To UBound(arr), 1 To maxcola)
ReDim brr1(1 To UBound(arr), 1 To maxcolb)
ReDim crr1(1 To UBound(arr), 1 To maxcolc)
For ar = 1 To UBound(arr)’For ar = 1 To UBound(arr) - 2  即使这里-2 也还是出现下标越界，
    If Cells(ar, 1) = "Title Block" Then
        ka = ka + 1 'count title block
        For j = 1 To maxcola
            arr1(ka, j) = arr(ar + 2, j)
        Next
    ElseIf Cells(ar, 1) = "Common" Then
        kb = kb + 1
        For jb = 1 To maxcolb
            brr1(kb, jb) = arr(ar + 2, jb)
        Next
    ElseIf Cells(ar, 1) = "Page Three" Then
        kc = kc + 1
        For jc = 1 To maxcolc
            crr1(kc, jc) = arr(ar + 2, jc)
        Next
    End If
Next
Worksheets.Add(after:=Sheets("Sheet0")).Name = "Sheet1"
Range("a1").Resize(, maxcola) = ra 'add title block in line1
Range("a2").Resize(ka, maxcola) = arr1 'add title block content
Range("a1").Offset(, maxcola).Resize(, maxcolb) = rb
Range("a1").Offset(1, maxcola).Resize(kb, maxcolb) = brr1
Range("a1").Offset(, maxcola + maxcolb).Resize(, maxcolc) = rc
Range("a1").Offset(1, maxcola + maxcolb).Resize(kc, maxcolc) = crr1
With Range("a1").CurrentRegion
    .Columns.AutoFit
    .HorizontalAlignment = xlLeft
End With
Range("a1").Select
End Sub

风中稻草人

arr = Range("a1").CurrentRegion.Resize(maxrow)
这个赋值出问题了

jiangxiaoyun

数组下标越界，很明显告诉你下标出问题了。找找一般就是数组没数据，数据超出数组范围。

shi353

= arr(ar + 2, j)   當錯誤發生時請看debug視窗  arr變數內容
arr 第2維只有到3  而 j 有循環到4     找不到當然下標越界!
建議樓主把所要這個代碼所要結果需求說出  由他人把代碼簡化吧

microyip

raylenewu

shi353 发表于 2019-10-7 06:42
= arr(ar + 2, j)   當錯誤發生時請看debug視窗  arr變數內容
arr 第2維只有到3  而 j 有循環到4     找 ...

好的，不知道要怎样简化，菜鸟一名 。我想要的结果是在另外一个表建立每一行排列都有从part category,basic name, page three ，就是第一个 part category,basic name, page three  为一行。依次类推

raylenewu

microyip 发表于 2019-10-7 09:26

各位大神，能将数组的数字变成文本格式吗，而且有一行是带有数字.0,而且数字前都是有三角符号，不知道怎样变。其实就是相当于复制粘贴sheet0的内容，格式，数值都不变

raylenewu

microyip 发表于 2019-10-7 09:26

谢谢啦，
还有想请教一下，
        数组里的数字要变成文本格式，且某一行数字有.0，要怎样弄

microyip

raylenewu 发表于 2019-10-7 19:26
谢谢啦，
还有想请教一下，
        数组里的数字要变成文本格式，且某一行数字有.0，要怎样弄

将那文本数字的列的值读出来，然后把那列格式改成常规，把值写回去就是数值了

raylenewu

microyip 发表于 2019-10-8 07:58
将那文本数字的列的值读出来，然后把那列格式改成常规，把值写回去就是数值了

非常感谢您的回答，已经尝试并可以了，谢谢