[已解决]如何避免不必要的重复计算

冰是睡觉的水

新1建 Microsoft Excel 工作表.rar (9.28 KB, 下载次数: 15)

2016-8-10 08:26 上传

点击文件名下载附件



sub kk
for i =4 to 65536
if cells(i,6)<>"" or cells(i,29)<>"" then
cells(i,10)=cells(i,9)-cells(i,9)*cells(i,29)/100
end if
next
end sub
如何避免继续录入i，ac列数据时，该函数不用重新计算i之前的已算过的J列数据

最佳答案

月排行榜 / 总排行榜

scl5801

2016-8-10 10:39

冰是睡觉的水 发表于 2016-8-10 08:28
附件已上传

Sub test()
    Dim r%, r1%
    r = Sheet1.[I65536].End(xlUp).Row
    r1 = Sheet1.[j65536].End(xlUp).Row
    For i = r1 To r
        If Cells(i, 6) <> "" Or Cells(i, 29) <> "" Then
           Cells(i, 10) = Cells(i, 9) - Cells(i, 9) * Cells(i, 29) / 100
        End If
    Next
End Sub

跳转到最佳答案楼层

ppp710715

1. Sub kk()
   
2. For i = 4 To 65536
   
3. If i <> 2500 Then
   
4. If Cells(i, 6) <> "" Or Cells(i, 29) <> "" Then
   
5. Cells(i, 10) = Cells(i, 9) - Cells(i, 9) * Cells(i, 29) / 100
   
6. End If
   
7. End If
   
8. Next
   
9. End Sub
   

复制代码

冰是睡觉的水

ppp710715 发表于 2016-8-9 21:08

不一定是2500，录入其他位置也是都重新计算一遍。我想录入一个数据就计算一个，不重复计算其他的

爱疯

建议用附件来表达需求，理解意图后才好说。

冰是睡觉的水

爱疯 发表于 2016-8-9 23:41
建议用附件来表达需求，理解意图后才好说。

附件已上传

scl5801

冰是睡觉的水 发表于 2016-8-10 08:28
附件已上传

Sub test()
    Dim r%, r1%
    r = Sheet1.[I65536].End(xlUp).Row
    r1 = Sheet1.[j65536].End(xlUp).Row
    For i = r1 To r
        If Cells(i, 6) <> "" Or Cells(i, 29) <> "" Then
           Cells(i, 10) = Cells(i, 9) - Cells(i, 9) * Cells(i, 29) / 100
        End If
    Next
End Sub