[已解决]求高手帮忙看看我的代码错在哪里，万分感谢

梦想有多远

求高手帮忙看看我的代码错在哪里，万分感谢

最佳答案

月排行榜 / 总排行榜

爱疯

2015-2-1 12:02

Sub 计算()
    Sheet2.Activate
    rw = Cells(Rows.Count, 1).End(3).Row
    For i = 4 To rw
        Range("F" & i).Value = Evaluate("SUMIF(Sheet1!A:A," & Cells(i, 1) & ",Sheet1!E:E)")
    Next
End Sub

跳转到最佳答案楼层

爱疯

发个图，发代码，可能能快点解决吧，手机路过

梦想有多远

爱疯 发表于 2015-1-31 21:06
发个图，发代码，可能能快点解决吧，手机路过

Sub 计算()
rw = Cells(Rows.Count, 1).End(3).Row
For i = 4 To rw
Dim rgg As Integer
rgg = Sheet2.Range("A" & i)
Sheet2.Range("F" & i).Value = Evaluate("SUMIF(Sheet1!A:A,rgg,Sheet1!E:E)")
Next
End Sub

梦想有多远

梦想有多远 发表于 2015-1-31 22:12
Sub 计算()
rw = Cells(Rows.Count, 1).End(3).Row
For i = 4 To rw

Sub 计算()
rw = Cells(Rows.Count, 1).End(3).Row
For i = 4 To rw
Dim rgg As Integer
rgg = Sheet2.Range("A" & i)
Sheet2.Range("F" & i).Value = Evaluate("SUMIF(Sheet1!A:A,rgg,Sheet1!E:E)")
Next
End Sub

爱疯

rw = sheet2.Cells(Rows.Count, 1).End(3).Row


提示什么，不能测试，你的应该好解决的。
最好加上工作表，如果不是，就改为对应的工作表，

爱疯

上图是sheet1吗?

梦想有多远

爱疯 发表于 2015-1-31 22:27
上图是sheet1吗?

是的老师，汇总表是sh2，台账是sh1，代码能运行，但结果是错的。

爱疯

Sub 计算()
    Sheet2.Activate
    rw = Cells(Rows.Count, 1).End(3).Row
    For i = 4 To rw
        Range("F" & i).Value = Evaluate("SUMIF(Sheet1!A:A," & Cells(i, 1) & ",Sheet1!E:E)")
    Next
End Sub

梦想有多远

爱疯 发表于 2015-2-1 12:02
Sub 计算()
    Sheet2.Activate
    rw = Cells(Rows.Count, 1).End(3).Row

老师还是不行啊，运行后就是错误值#REF!

梦想有多远

梦想有多远 发表于 2015-2-1 14:09
老师还是不行啊，运行后就是错误值#REF!

Sub 计算()
    Sheet2.Activate
    rw = Sheet2.Cells(Rows.Count, 1).End(3).Row
    For i = 4 To rw
     Sheets("汇总").Range("F" & i).Value = "=SUMIF(台账!A:A," & Cells(i, 1) & ",台账!E:E)"
    Next
End Sub
老师改成这样就可以了，谢谢你的解答