[已解决]用VBA求区域和

c888

dLlnucVp.rar (5.09 KB, 下载次数: 1)

2010-8-21 19:48 上传

点击文件名下载附件
用VBA求区域和
谢谢！

最佳答案

月排行榜 / 总排行榜

提拉米苏08

2010-8-22 09:43

Sub mysum2()
    Dim x%, y%, arr1()
    arr1 = [G4:K29].Value
    For x = 1 To UBound(arr1, 1)
      For y = 2 To UBound(arr1, 2)
        arr1(x, 1) = arr1(x, 1) + arr1(x, y)
       Next y
    Next x
    [L4:L29] = arr1
End Sub

跳转到最佳答案楼层

fjmxwrs

变量=Application.Sum(区域）

从脚学起

Sub a()
  Dim i
  For i = 4 To 29
  Cells(i, "L") = Application.Sum(Range("D" & i & ":K" & i))
  Next
End Sub

提拉米苏08

Sub mysum2()
    Dim x%, y%, arr1()
    arr1 = [G4:K29].Value
    For x = 1 To UBound(arr1, 1)
      For y = 2 To UBound(arr1, 2)
        arr1(x, 1) = arr1(x, 1) + arr1(x, y)
       Next y
    Next x
    [L4:L29] = arr1
End Sub

从脚学起

[em07][em07][em07]