关于一个数组写出的报错的问题

fox1981021

问题来自于表中Q列的20340行及其以后，VBA的原理是根据D列每行的日期与R1中的目标日期进行核对，判断出账龄并将账龄写入arr2，最后将arr2输出到Q列中。但Q列到了20340行之后就全部显示为"#N/A"，但在VBA管理器中arr2的值都是正常的，我一直搞不明白是啥原因。请大神们帮忙看看，不吝赐教。

A1233515

arr的最大下标15万多，transpose函数可以转置的最大行数65536
所以出错

A1233515

可以在网上自行搜索一下数组转置代码，不受行数限制，也比较简单

3190496160

Sub Aging()
Dim arr1 As Variant, arr2()
Target = "未清账明细"
Sheets(Target).Select
If ActiveSheet.AutoFilterMode = True Then
   Selection.AutoFilter
End If
n = Sheets(Target).Cells(Rows.Count, 4).End(xlUp).Row
arr1 = Range("D2:D" & n)
ReDim arr2(1 To UBound(arr1), 1 To 1)
i = 1
  For Each m In arr1
     age = DateDiff("m", m, Range("R1").Value)
        Select Case age
            Case Is < 3
              arr2(i, 1) = "3个月以内"
            Case 3 To 6
              arr2(i, 1) = "3至6个月"
            Case 7 To 12
              arr2(i, 1) = "6至12个月"
            Case 12 To 24
              arr2(i, 1) = "1至2年"
            Case Is > 24
              arr2(i, 1) = "2年以上"
        End Select
    i = i + 1
  Next m
  Columns("q:q").ClearContents
Range("Q1") = "Aging"
Range("Q2").Resize(UBound(arr2), 1) = arr2
Erase arr1, arr2
End Sub

3190496160

分析表.rar (738.07 KB, 下载次数: 1)

2021-3-11 09:01 上传

点击文件名下载附件

3190496160

关键是数组的定义问题，现在看看吧

fox1981021

3190496160 发表于 2021-3-11 09:02
关键是数组的定义问题，现在看看吧

非常感谢。看来对数组我还要好好再学习学习。谢谢大神。