数组数据后期处理

zllyyz

请各位老师指教，需求如下图（已知前期用SQL较为容易达成目的，“请优选后期处理方式”），谢谢

lisongmei

再定义一个数组，对原数组循环，把需要的结果写入新数组，重新赋值到单元格。。。，就一个循环，代码略。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.15
   
2.     b = [{1,2,3,4,8,9,10,11,12,13,14,15,16,17,18,22,23,24,25,26,28,29,34}]
   
3.     arr = [a7:ah21]
   
4.     ReDim brr(1 To UBound(arr), 1 To UBound(b))
   
5.     For i = 1 To UBound(arr)
   
6.         m = m + 1
   
7.         For j = 1 To UBound(b)
   
8.             brr(m, j) = arr(i, b(j))
   
9.         Next
   
10.     Next
    
11.     ActiveSheet.UsedRange.Offset(25).ClearContents
    
12.     [a26].Resize(m, UBound(b)) = brr
    
13.     MsgBox "OK！"
    
14. End Sub
    

复制代码

zllyyz

ykcbf1100 发表于 2024-3-15 10:38
附件供参考。。。

又学到新知识  直接定义列数 不用Brr(i,1)=Arr(i,1)

无关岁月

数组数据后期处理.7z (20.6 KB, 下载次数: 5)

2024-3-15 10:50 上传

点击文件名下载附件