Excel 6-F7+H7，如果（H7“”，I6-F7+H7“”）f=payment i=balance h=Deposits感谢我的编辑，一定是错误地键入了额外的g。固定的。。。所以这不是问题所在。谢谢你，你的解决方案似乎对我有效。谢谢你的捕获-那是我编辑的，一定是

---

6-F7+H7，如果（H7“”，I6-F7+H7“”）f=payment i=balance h=Deposits感谢我的编辑，一定是错误地键入了额外的g。固定的。。。所以这不是问题所在。谢谢你，你的解决方案似乎对我有效。谢谢你的捕获-那是我编辑的，一定是误打了一个额外的g。固定的。。。所以这不是问题所在。谢谢你。你的解决方案似乎对我有效。谢谢你的努力。我想作为一个初学者，我会坚持我所拥有的，但是代码可能在某个时候值得学习。我更感兴趣的是把我的电子表格变成可用的形式。谢谢你的工作。我想作为一个初学者，我会坚持我所拥有的，但是代码可能在某个时候值得学习。此时，我更感兴趣的是将我的电子表格转换成可用的形式。

Sub DeleteTransactionRectangle_Click()
    Dim deletedRow

    Dim rng As Range
    Set rng = Selection

    deletedRow = rng.Row

    MsgBox (deletedRow)
    Worksheets("Register").Range("I:I").Copy 
    rng.EntireRow.Delete

    ActiveSheet.Paste Destination:=Worksheets("Register").Range("I:I")

End Sub

rng.EntireRow.Delete
ActiveSheet.Range("I" & deletedRow - 1).Copy
ActiveSheet.Range("I" & deletedRow).Select
ActiveSheet.Paste

=SUM(H$1:H2)-SUM(F$1:F2)