
VBA
VBASub Worksheet_Change(ByVal Target As Range)On Error GoTo Line1If Target.ran360问答ge("A1").Address = "$A$1" Then Target.Range("A1").Offset(1, 0) = Target.Range("A1").Offset(1, 0) + Target.Range("A1")Line1: End Sub这里将触发代码的单元格设为A1。然后回到excel,在A1单元格不断输入数字,A2单元格会自动累加。请注意,以上代码仅供参考,请根据具体情况进行修改和调整。另外,在WPS中可能与其他公式或操作冲突,请谨慎使用。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号