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

fox1981021 · 发表于 2021-3-10 23:16

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

A1233515 · 发表于 2021-3-11 08:17

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

A1233515 · 发表于 2021-3-11 08:19

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

3190496160 · 发表于 2021-3-11 09:01

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 · 发表于 2021-3-11 09:01

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

3190496160 · 发表于 2021-3-11 09:02

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

fox1981021 · 发表于 2021-3-12 07:56

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

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

		自动登录	找回密码
密码			免费注册