关于数组倒序的问题

dc26310896

附件中的Excel文档里有两个工作表                 要把 “记录”工作表中的数据经过3层for循环，最终把数据通过数组传递给“记录倒序”工作表，              尝试了好多方法不尽人意，故来此请教如何修改才能实现以下目的：              
①不通过第3层循环，能不能有某种方法可以直接把“记录”中的数据倒序赋值给数组arr3           


②第2层循环时，能不能先把每次循环的数组数据传递给到收集数据的数组arr2，收集之后再通过worksheets（“记录倒序”）.Range().Resize() = arr2 一次性传到最终位置

lsdongjh

1. Sub 记录倒序()
   
2.     Dim shResult As Worksheet, lngRows As Long
   
3.     Dim shData As Worksheet, ColID As Long, arrVal As Variant
   
4.    
   
5.     Set shResult = Sheets("记录倒序")
   
6.     lngRows = shResult.UsedRange.Rows.Count
   
7.     shResult.Rows("3:" & lngRows).ClearContents
   
8.    
   
9.     Set shData = Sheets("记录")
   
10.    
    
11.     For ColID = 1 To 90
    
12.         arrVal = GetReverse(shData, ColID)
    
13.         If IsArray(arrVal) Then shResult.Cells(3, ColID).Resize(UBound(arrVal), 1) = arrVal
    
14.     Next
    
15. End Sub
    
16. 
    
17. Function GetReverse(sh As Worksheet, ColID As Long, Optional Row_StartID As Long = 22) As Variant
    
18.     Dim lngRows As Long, arrTmp As Variant, arrReturn As Variant, lngID As Long
    
19.    
    
20.     lngRows = sh.Cells(Rows.Count, ColID).End(xlUp).Row - 2 '减去末尾2行
    
21.     If lngRows <= Row_StartID Then Exit Function '无数据
    
22.    
    
23.     arrTmp = sh.Range(sh.Cells(Row_StartID, ColID), sh.Cells(lngRows, ColID))
    
24.    
    
25.     ReDim arrReturn(LBound(arrTmp) To UBound(arrTmp), 1 To 1)
    
26.    
    
27.     lngID = LBound(arrTmp)
    
28.     For lngRows = UBound(arrTmp) To LBound(arrTmp) Step -1
    
29.         arrReturn(lngID, 1) = arrTmp(lngRows, 1)
    
30.         lngID = lngID + 1
    
31.     Next
    
32.    
    
33.     GetReverse = arrReturn
    
34. End Function
    

复制代码