| 楼主 a371014988 |
dim mycon as new collection For m = 1 To UBound(arr1, 1) If arr1(m, 1) <= date2 And arr1(m, 1) >= date1 And arr1(m, 1) <> "" Then If arr4(m, 1) = "" Or Val(arr4(m, 1)) = 0 Then mycon.Add m, CStr(m) End If End If Next m ReDim ag4(1 To mycon.Count) 'ag2附值 For n = 1 To mycon.Count ag4(n) = Val(mycon.Item(n)) Next Set mycon = Nothing |
| 2楼 wqfzqgk |
和字典的用法基本差不多 |
| 3楼 zlxtl |
字典需要一个DLL才行 缺那个文件就不执行 collection 是VBA内置功能 |