[已解决]用VBA改写数组计算sheet1

laoau138

用VBA改写数组计算sheet1

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-15 16:36

极少数单元格操作用数组有点多此一举，把以下代码放到sheet2下，然后把sheet1的数据复制过去试试吧。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim r&
   
3. r = Target.Row
   
4. If r > 1 Then
   
5.   Cells(r, 5) = Application.sum(Cells(r, 2).Resize(, 3))
   
6. End If
   
7. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

极少数单元格操作用数组有点多此一举，把以下代码放到sheet2下，然后把sheet1的数据复制过去试试吧。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim r&
   
3. r = Target.Row
   
4. If r > 1 Then
   
5.   Cells(r, 5) = Application.sum(Cells(r, 2).Resize(, 3))
   
6. End If
   
7. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-4-15 16:36
极少数单元格操作用数组有点多此一举，把以下代码放到sheet2下，然后把sheet1的数据复制过去试试吧。

用VBA数组定位全排列输出结果

http://www.excelpx.com/thread-429377-1-1.html