Question

我有以下数据：

Mon    Tue    Total
2      5       25
5      0       50
54     85      5485

目前我使用Mon＆amp; amp连接Total星期二当双击单元格或粘贴Mon和Tue中的值时，这适用于更改事件。

但是，有没有办法在按下DELETE按钮时反映更改？所以当DELETE时，清除Total cells。所以，如果我删除Mon，只需要5，如果我删除Mon和Tue，那么第一行的空单元格等等......

UPD： 我目前的代码是：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngLastRow As Long
    lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Worksheets(1).Range("D2:D" & lngLastRow).Value = Evaluate("=A2:A" & lngLastRow & "&""""&" & "B2:B" & lngLastRow)
End Sub

Answer 1

找到解决方案：

If Not Intersect(Target, Range("A:A", "B:B")) Is Nothing Then 
Range("D2:D" & myRange).Value = myValue 

End If

按下DELETE时更新单元格

1 个答案: