提示下标越界，求大神修改一下代码

抹不去の回忆

Sub 提取基础数据()
Sheet1.Range("a2:y65566").Clear
    Dim arr, wb As Workbook
    Set wb = CreateObject(ThisWorkbook.Path & "/总库存.xlsx")
    arr = wb.Sheets("sheet1").Range("a1").CurrentRegion
    wb.Close 0
    Application.ScreenUpdating = False
    Workbooks("自动报货表1.xlsm").Activate   
   brr = ActiveWorkbook.Sheets("采购计划表").Cells(1, 1).CurrentRegion.Row  
    Sheet1.Range("a:a").NumberFormatLocal = "@"
   
    For i = 2 To UBound(arr)
        brr(j, 1) = arr(i, 4)
        brr(j, 2) = arr(i, 5)
        brr(j, 3) = arr(i, 6)
        brr(j, 4) = arr(i, 7)
        brr(j, 5) = arr(i, 9)
        'Sheet1.Cells(i, 9) = arr(i, 10)
        
    Next
    ActiveWorkbook.Sheets("采购计划表").Cells(1, 1).CurrentRegion.Row = brr
    Erase arr, brr
    Set wb = Nothing
End Sub

标红色部分的代码提示下标越界，请大神指导一下什么原因

limonet

我下载附件了，把采购计划表1改成采购计划表。

LIUZHU

这句的赋值有么有问题？能得到一个数组吗？
brr = ActiveWorkbook.Sheets("采购计划表1").Cells(1, 1).CurrentRegion.Row

抹不去の回忆

limonet 发表于 2023-7-24 14:00
我下载附件了，把采购计划表1改成采购计划表。

还是执行出错，提示类型不匹配

抹不去の回忆

自己顶一下

抹不去の回忆

下标越界问题解决了，是我把表名弄错了，附件已经更新，现在又提示类型不匹配，请老师帮忙看看

gwjkkkkk

Sub 提取基础数据()
Sheet1.Range("a2:y65566").Clear

    Dim arr, wb As Workbook
    Set wb = CreateObject(ThisWorkbook.Path & "/总库存.xlsx")
    arr = wb.Sheets("sheet1").Range("a1").CurrentRegion
    wb.Close 0
    Application.ScreenUpdating = False
    Workbooks("自动报货表1.xlsm").Activate
    brr = ActiveWorkbook.Sheets("采购计划表").Cells(1, 1).CurrentRegion.Resize(UBound(arr))
    Sheet1.Range("a:a").NumberFormatLocal = "@"
   
    For i = 2 To UBound(arr)
        brr(i, 1) = arr(i, 4)
        brr(i, 2) = arr(i, 5)
        brr(i, 3) = arr(i, 6)
        brr(i, 4) = arr(i, 7)
        brr(i, 5) = arr(i, 9)
        'Sheet1.Cells(i, 9) = arr(i, 10)
        
    Next
    ActiveWorkbook.Sheets("采购计划表").Cells(1, 1).CurrentRegion.Resize(UBound(arr)) = brr
    Erase arr, brr
    Set wb = Nothing

End Sub

smiletwo

将行数赋值给数组当然不行。  F8+变量监测看看

沈默00

....CurrentRegion.Row 这个是行号，怎么能赋值数组，直接用usedrange好了，循环时从你需要的行数取开始值