[已解决]提取符合要求的数据问题

李全有

附件 提取符合要求的数据.rar (208.54 KB, 下载次数: 18)

2015-7-3 15:33 上传

点击文件名下载附件
谢谢!

最佳答案

月排行榜 / 总排行榜

grf1973

2015-7-3 15:55

请看附件。

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     arr = [a1].CurrentRegion
   
3.     r = UBound(arr): c = UBound(arr, 2)
   
4.     ReDim brr(1 To Int(c / 13 * (r + 2) + 100), 1 To 13)   '存放结果
   
5.     n = -r
   
6.     For j = 13 To UBound(arr, 2) Step 13
   
7.         If arr(1, j) = arr(2, j) Then        '筛选条件
   
8.            n = n + r
   
9.            For i = 1 To r
   
10.               For k = 1 To 13
    
11.                 brr(n + i, k) = arr(i, j - 13 + k)
    
12.               Next
    
13.             Next
    
14.             n = n + 1
    
15.         End If
    
16.     Next
    
17.     [p11].Resize(n + i - 1, 13) = brr
    
18. End Sub
    

复制代码

grf1973

请看附件。