[已解决]求助：错误提示缺少列表分隔符或）

wls0705

Sub 求和()
Dim i As Integer
Dim x As Integer
x = Range("a65536").End(xlUp).Row
For i = 2 To x
Range("d" & i) = Application.Sum(Range("a" & i) : Range("c" & i))
Next i

End Sub

谢谢了

最佳答案

月排行榜 / 总排行榜

枯禅

2010-4-9 10:52

也可以是：

Range("d" & i) = Application.Sum(Range("a" & i & ":c" & i))

跳转到最佳答案楼层

dsmch

把Range("a" & i) : Range("c" & i))改为
range(cells(i,1),cells(i,3)) 试试

wls0705

还是一样的，不过还是谢谢你。可能我没讲明白，我是要求3个单元格的数字的和

和气生财

QUOTE:

以下是引用wls0705在2010-4-9 9:45:00的发言：

Sub 求和()
Dim i As Integer
Dim x As Integer
x = Range("a65536").End(xlUp).Row
For i = 2 To x
Range("d" & i) = Application.Sum(Range("a" & i) : Range("c" & i))
Next i

End Sub

谢谢了

你不上传文件，没办法调试。

改成   Range("d" & i) = Application.Sum(Range("a" & i & " :" & "c" & i))

枯禅

也可以是：

Range("d" & i) = Application.Sum(Range("a" & i & ":c" & i))

和气生财

哈哈，掉入楼主的思路中了。

枯禅的是最终结果。

和气生财

啊，系统有问题。

回复之后，自己的培训币数量没有增加，还是77个。 

[em02]

wls0705

谢谢三位热心人。成功了，但是不明白代码的意思。为什么公式直接引用不可以的？想了解一下。最佳答案只有一个好选，和兄不咬见怪哦

wls0705

哈哈哈，和兄热心的

dsmch

QUOTE:

以下是引用wls0705在2010-4-9 10:49:00的发言：

还是一样的，不过还是谢谢你。可能我没讲明白，我是要求3个单元格的数字的和

[em06]