[已解决]指定列相加~~请高手指教！谢谢!

vivajian

非常感谢大家！！！

最佳答案

月排行榜 / 总排行榜

新月gg

2012-12-17 23:26

Sub leijia()
    Dim ir As Long
    Dim iend As Long
    iend = Range("c" & Rows.Count).End(3).Row
    For ir = 2 To iend
        Range("l" & ir) = Range("c" & ir) + Range("d" & ir) + Range("e" & ir)

    Next ir
End Sub
直接在单元格里相加就好了，干嘛用vba呢？

跳转到最佳答案楼层

新月gg

Sub leijia()
    Dim ir As Long
    Dim iend As Long
    iend = Range("c" & Rows.Count).End(3).Row
    For ir = 2 To iend
        Range("l" & ir) = Range("c" & ir) + Range("d" & ir) + Range("e" & ir)

    Next ir
End Sub
直接在单元格里相加就好了，干嘛用vba呢？

vivajian

新月gg 发表于 2012-12-17 23:26
Sub leijia()
    Dim ir As Long
    Dim iend As Long

因为数字是在其他表里连接的！！所以不能用公式！

dream_literate

Sub SumCDE()
    Dim x As Integer
    For x = 2 To 4
        Range("L" & x) = Range("C" & x) + Range("D" & x) + Range("E" & x)
        Next x
    End
End Sub