|
本帖最后由 森林木007 于 2013-4-30 08:49 编辑
各位老师:
我想用字典保存资料,但字典提取所有行数据出错,请指导,谢谢!
Sub 保存信息之一() '计件工资汇总
On Error Resume Next
Sheets("凭证信息录入").Activate
Dim d As New Dictionary, arr, i, t
arr = Range("a3", [a65535].End(3).Offset(, 13)).Value
For i = 1 To UBound(arr)
d(i) = Cells(i + 2, 1).Resize(1, 13)
Next
'd.keys: t = d.items
Sheets("计件工资汇总").[a65536].End(3).Offset(1).Resize(1, 13) = Application.Transpose(Application.Transpose(d(i)))
End Sub
计件工资保存方法.zip
(53.98 KB, 下载次数: 10)
|
|