|
发表于 2015-4-2 22:17
|
显示全部楼层
本楼为最佳答案
- Sub Macro1()
- Dim arr, k%, j%, i&, s&
- arr = Sheet1.[b15:f88]
- n = UBound(arr)
- For k = 1 To 9
- For j = 1 To 4
- s = 0
- For i = n - k To 1 Step -1
- If arr(i, j) = arr(n - k, j) Then
- s = s + 1
- Sheets(k + 1).Cells(s, j + 1) = arr(i + k, j)
- End If
- Next
- Next
- Next
- End Sub
复制代码 |
|