通过字典求和，哪里错了

05050818

sheet1有55行4列，第一列为姓名，第四列为工资，sheet2有10行1列，姓名。
我的写法:
sub 求和()
mya=sheet1.range("a1:d55")
myb=sheet2.range("a1:a10")
set d= createobject("scripting.dictinary")

for i = 1 to 55
d(mya(i,1))=d(mya(i,1))+mya(i,4)
next
for ia=1 to 10
sheet2.range("a&ia") = d.items(myb(ia,1))
next
end sub

不知道为什么往字典里装完东西后只有两行？还有运行到第二个循环语句时过不去，提示 proberly peodect什么的，请大侠字典

山菊花

sub 求和()
    mya = Sheet1.Range("a1:d55")
    myb = Sheet2.Range("a1:a10")
    Set d = CreateObject("scripting.dictinary")
   
    For i = 1 To 55
        d(mya(i, 1)) = d(mya(i, 1)) + mya(i, 4)
    Next
    For ia = 1 To 10
        Sheet2.Range("b" & ia) = d(myb(ia, 1))
    Next
End Sub

05050818

谢谢，能说下我的哪里错了吗？是什么原因错了？

05050818

山菊花 发表于 2016-10-13 21:16
sub 求和()
    mya = Sheet1.Range("a1:d55")
    myb = Sheet2.Range("a1:a10")

老师，把往字典装数据怎么只生成两个条目呢？还有另一个问题关于target的，
if target.count>1 then exit sub
这句写法有错吗？我用的是2007版的，总是提示我出错，错误代码424

山菊花

第一个问题没法回答。
第二个问题也是猜，有可能答案是错误的：
target是工作表、工作簿事件程序中的默认参数，如果在自定义过程中用得不当，就发生424错误。

05050818

山菊花 发表于 2016-10-14 07:27
第一个问题没法回答。
第二个问题也是猜，有可能答案是错误的：
target是工作表、工作簿事件程序中的默认 ...

可能是电脑程序哪里出错了吧，
昨天还能运行的代码，今天又发新状况。

05050818

山菊花 发表于 2016-10-14 07:27
第一个问题没法回答。
第二个问题也是猜，有可能答案是错误的：
target是工作表、工作簿事件程序中的默认 ...

第一个问题已解决，谢谢大神。
第二个问题，我试了，还是不行，我甚至重新安装了程序，也不行。

05050818

不断探求摸索之下终于搞掂，谢谢各位的指教