自定义函数使用动态数组返回单元格出错

zhaoguang1986

我在vba查找表中的满足一定条件的数据，然后做一些操作，存到动态数组里面，返回数组中的数据至单元格，出现#value错误
代码应该怎么修改？
工作簿.zip (108.35 KB, 下载次数: 0)

2023-3-27 18:20 上传

点击文件名下载附件

1. Function test1()
   
2. Dim aaaaa()
   
3.     For i = 1 To Sheet1.Range("A1").CurrentRegion.Rows.Count
   
4.             If Sheet1.Cells(i, 1) = "小麦" Then
   
5.                 If IsArrayEmpty(aaaaa) Then
   
6.                     ReDim aaaaa(1 To 1)
   
7.                     aaaaa(1) = Sheet1.Cells(i, 2)
   
8.                 Else
   
9.                     ReDim Preserve aaaaa(1 To UBound(aaaaa) + 1)
   
10.                      aaaaa(UBound(aaaaa)) = Sheet1.Cells(i, 2)
    
11.                 End If
    
12.             End If
    
13.         Next i
    
14.         test1 = aaaaa(1)
    
15. End Function
    
16. 
    

复制代码

普通主題





Ctrl [color=var(--main-gray)]+ V