运行时为何会出现下标越界提示？

zsj507

各位大侠，以下是从论坛上搜的多个工作表合并代码，不知何解运行时提示下标越界，请各位大神帮忙看看，谢谢！
Sub gj23w98()
    Dim brr(1 To 100000, 1 To 100)
    For Each sht In Sheets
        If sht.Name <> ActiveSheet.Name Then
            arr = sht.[a4].CurrentRegion
            For i = 2 To UBound(arr)
                m = m + 1
                brr(m, 1) = sht.Name
                For j = 2 To 100
                    brr(m, j) = arr(i, j - 1)
                Next
            Next
        End If
    Next
    [a1].CurrentRegion.Offset(1).ClearContents
    [a2].Resize(m, 100) = brr
End Sub

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

3190496160

arr = sht.[a4].CurrentRegion   arr数组是从a4单元格开始的一个连续的单元格区域，但是，For j = 2 To 100这句代码确实循环100列，如果arr数组没有100列，那肯定就越界了呀，改成这样试试看看
For j = 2 To ubound(arr,2)

sj15627581616

估计是第二循环出了问题，但是没附件，无法判断工作表内容，无从下手

renkangjizhen

未定义维度的不明确数组成员提取，最好是从0 开始提取，已定义维度的数组最好是从1 开始提取，否则容易出错

zsj507

3190496160 发表于 2020-3-18 08:42
arr = sht.[a4].CurrentRegion   arr数组是从a4单元格开始的一个连续的单元格区域，但是，For j = 2 To 100 ...

您好，改了后运行无问题，但为何合并后的信息都少了各表最后一列的数据？

zsj507

renkangjizhen 发表于 2020-3-18 09:04
未定义维度的不明确数组成员提取，最好是从0 开始提取，已定义维度的数组最好是从1 开始提取，否则容易出错

我是个莱鸟，请指导如何改，谢谢！

3190496160

zsj507 发表于 2020-3-18 09:14
您好，改了后运行无问题，但为何合并后的信息都少了各表最后一列的数据？

看不到你的表格，别人怎么能知道是什么原因呢？？

zsj507

各位大侠，麻请看如下附件，不知何解运行时提示下标越界。