【字典与数组二期1班】第一讲作业工资分类（必做）【已开贴】

ls

rxj_0414 发表于 2011-12-22 15:58
因为是第三行开始赋值，所以实际在工作表中的行数比数组的行数要多2行。
不如range("D3").resize(ubound ...

谢谢回复              

zsx720629

Dim arr, arr1, arr2, arr3, k1, m1, k2, m2, k3, m3
Dim d1 As New Dictionary
Dim d2 As New Dictionary
Dim d3 As New Dictionary
With Sheet1
arr = .Range("a1:b" & .Range("a" & .Rows.Count).End(xlUp).Row)
For i = 1 To UBound(arr)
    If arr(i, 2) >= 1000 And arr(i, 2) < 2000 Then
        d1(arr(i, 1)) = arr(i, 2)
    End If
    If arr(i, 2) >= 2000 And arr(i, 2) < 3000 Then
        d2(arr(i, 1)) = arr(i, 2)
    End If
    If arr(i, 2) >= 3000 Then
        d3(arr(i, 1)) = arr(i, 2)
    End If
Next i
k1 = d1.Keys
m1 = d1.Items
k2 = d2.Keys
m2 = d2.Items
k3 = d3.Keys
m3 = d3.Items
.Range("d3").Resize(d1.Count, 1) = Application.WorksheetFunction.Transpose(k1)
.Range("e3").Resize(d1.Count, 1) = Application.WorksheetFunction.Transpose(m1)
.Range("f3").Resize(d2.Count, 1) = Application.WorksheetFunction.Transpose(k2)
.Range("g3").Resize(d2.Count, 1) = Application.WorksheetFunction.Transpose(m2)
.Range("h3").Resize(d3.Count, 1) = Application.WorksheetFunction.Transpose(k3)
.Range("i3").Resize(d3.Count, 1) = Application.WorksheetFunction.Transpose(m3)
End With