vba对区域中有输入数据的行求和

小年玩卡

再要求区域中有输入数据的行求和
模板.7z (9.48 KB, 下载次数: 13)

2020-3-17 09:05 上传

点击文件名下载附件

3190496160

非常简单的问题，单是，什么数据都没有，看到附件就没有兴趣了

小年玩卡

3190496160 发表于 2020-3-17 09:41
非常简单的问题，单是，什么数据都没有，看到附件就没有兴趣了

我是想怎么样速度更快，我知道的方式都是好慢，数据本来就是没有的，只有填了 才自动计算

excel海

这不就是简单的求和?

小年玩卡

excel海 发表于 2020-3-17 10:03
这不就是简单的求和?

数据多了就比较卡，

wbperfect

1. Sub test()
   
2. For i = 2 To ActiveSheet.UsedRange.Rows.Count
   
3. Cells(i, "d") = "=RC[3]+RC[5]+RC[7]+RC[9]"
   
4. Cells(i, "e") = "=RC[3]+RC[5]+RC[7]"
   
5. Next
   
6. End Sub

复制代码

wbperfect

++++++++++附件参考

小年玩卡

wbperfect 发表于 2020-3-17 10:16
++++++++++附件参考

非常感谢  ，就用你这个

素心1218

在thisworkbook里面粘贴
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rn As Range
Dim m
m = 30 '//要计算的最后一列的行号
Set rn = Intersect(Union(Range("G6:G" & m), Range("I6:I" & m), Range("K6:K" & m), Range("M6:M" & m)), Target)
If Not rn Is Nothing Then
  Cells(Target.Row, 4) = Cells(Target.Row, 7) + Cells(Target.Row, 9) + Cells(Target.Row, 11) + Cells(Target.Row, 13)
End If
Set rn = Intersect(Union(Range("H6:H" & m), Range("J6:J" & m), Range("L6:L" & m)), Target)
If Not rn Is Nothing Then
  Cells(Target.Row, 5) = Cells(Target.Row, 8) + Cells(Target.Row, 10) + Cells(Target.Row, 12)
End If
End Sub

素心1218

需要计算多少行，改m值就可以了