|
本帖最后由 sry660 于 2016-3-8 13:46 编辑
- Sub 数据整理()
- Dim arr, i&, j&, d, x, k%
- Set d = CreateObject("scripting.dictionary")
- arr = [a1].CurrentRegion
- For i = 1 To UBound(arr)
- For k = 1 To 5
- d(k) = ""
- Next
- For j = 1 To 10
- x = arr(i, j)
- If x < 60 Then
- d(1) = d(1) & arr(i, j) & ","
- ElseIf x < 70 Then
- d(2) = d(2) & arr(i, j) & ","
- ElseIf x < 80 Then
- d(3) = d(3) & arr(i, j) & ","
- ElseIf x < 90 Then
- d(4) = d(4) & arr(i, j) & ","
- ElseIf x <= 100 Then
- d(5) = d(5) & arr(i, j) & ","
- End If
- Next
- Cells(i, 12).Resize(1, 5) = Application.Transpose(Application.Transpose(d.items))
- d.RemoveAll
- Next
- [l:p].EntireColumn.AutoFit
- End Sub
复制代码 |
|