字典对象如何复制到已有工作表中？

ylj518

上次是重建工作表，这次是已有工作表，怎样复制，继续求教！

taller

ylj518

谢谢!原来是是这样！

taller

levey

搞个呆办法

Sub range装字典()

arr = Sheet12.Range("a1").CurrentRegion

For Each sth In ThisWorkbook.Worksheets
    If sth.Name <> "list" Then
        With sth
            If d.Count > 0 Then Set d = Nothing
            Set d = CreateObject("scripting.dictionary")
                kk = sth.Name
                .UsedRange.Clear
                For i = 2 To UBound(arr)
                    If arr(i, 1) = Val(kk) Then d(i & arr(i, 1)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6))
                Next
            .[a1].Resize(1, 6) = Array("班级", "姓名", "语文", "数学", "英语", "物理")
            .[a2].Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.items))
        End With
    End If
Next

End Sub

taller