如何优化这收支表VBA

S110018

有个简单的收支表，只想用VBA，小白的我练习拼凑了几行码，测试发现行数多了以后，运算慢了，求优化指点


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
  For i = 3 To UsedRange.Rows.Count + 1
  If Target.Column = 4 And Cells(3, 4) <> "" Then
  Cells(3, 6) = Cells(3, 4)
End If
  If Target.Column = 2 And i > 3 And Cells(i, 2) <> "" Or Target.Column = 4 And i > 3 And Cells(i, 4) <> "" Then
  Cells(i, 6) = Cells(i - 1, 6) + Cells(i, 4) - Cells(i, 2)
End If
Next
End Sub

xsy我可以很好

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For H = 4 To Sheets("收支表").Cells.SpecialCells(xlCellTypeLastCell).Row
Sheets("收支表").Cells(H, 6) = Sheets("收支表").Cells(H - 1, 6) + Sheets("收支表").Cells(H, 4) - Sheets("收支表").Cells(H, 2)
Next
End Sub

清风竹-

请测试一下。

追风少年丶斌

由于我模拟了100多万行数据，导致表格比较大。

分享有效期30天，我不会用手机传附件，抱歉。


【超级会员V5】通过百度网盘分享的文件：测试收支表 By…
链接:https://pan.baidu.com/s/1QmqtctQX9JhzJFUs3ywaiQ?pwd=6666
提取码:6666
复制这段内容打开「百度网盘APP 即可获取」

Yalishanda30

追风少年丶斌 发表于 2023-5-4 11:36
由于我模拟了100多万行数据，导致表格比较大。

分享有效期30天，我不会用手机传附件，抱歉。

空白的，，，就几行数据

追风少年丶斌

保存的时候没注意到仅清除的内容，所以表格文件显得比较大。如果要减小文件大小，就删除下面的空白行。

S110018

对楼上的几位老师热心帮助表示衷心的感谢！