实现的功能为，在第三列选择”钱已到“这个菜单选项后，第四列的值就会从原来的数值变为0，代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
i = Sheets("2021年收支情况表").UsedRange.Count
If Target.Column = 3 And Target.Value = "钱已到" And Target.Row < i Then Target.Offset(0, 1) = "0"
End Sub
遇到的报错时错误“13”，类型不匹配，显示第四行代码有问题，但是功能上已经能实现了，就是老是报错，不知道啥缘故，有大神嘛？

用不着编程啊
直接用一个公式就好了

设有依次这么多列（A-H）：客户名，发货日期，发货名称、发货数量，发货单价，发货金额，是否结清（就是你原来的“钱已到”），欠款数
H2输入公式=iif（G2="结清",0,F2）
然后复制下去。

用EXCEL里的VBA进行操作不好么？不过我对VBA已经忘得差不多了