请教大神

ckz008

附件中基数数据为原始表格，分类汇总数据为汇总后的数据。现在需要将分类汇总后的数据进行排序，需要显示汇总金额大于2000的入款单号及产品明细。谢谢

鄂龙蒙

1. Sub 统计()
   
2.     Dim ar, br(), m, i, j
   
3.    [A2:D10000] = Empty
   
4.     ar = Sheet1.Range("A1").CurrentRegion
   
5.         For i = 2 To UBound(ar)
   
6.             If ar(i, 4) > 2000 Then
   
7.                 m = m + 1
   
8.                 ReDim Preserve br(1 To 4, 1 To m)
   
9.                 For j = 1 To 4
   
10.                     br(j, m) = ar(i, j)
    
11.                 Next
    
12.             End If
    
13.         Next
    
14.     [A2].Resize(m, 4) = Application.Transpose(br)
    
15. End Sub

复制代码