的Excel/Excel VBA中剪切和复制复位单元名称

Question

的情况很简单，如果我的名字细胞A1是MY_CELL然后截断并从细胞A2 PASTE到细胞MY_CELL，然后MY_CELL将失去这个名字和命名A1再次。

但是，这种情况不会发生在我复制和粘贴从A2到MY_CELL。

如何防止Excel重置单元格名称CUT AND PASTE？

Answer 1

逻辑：使用Worksheet_Change事件将更改捕获到单元格A1，并在名称丢失时重新创建该名称。

代码：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim DoesRngNameExists As Boolean 
    Dim sName As String 

    On Error GoTo Whoa 

    Application.EnableEvents = False 

    '~~> You named range 
    sName = "MY_CELL" 

    If Not Intersect(Target, Range("A1")) Is Nothing Then 
     '~~> Check if the Range exists 
     On Error Resume Next 
     DoesRngNameExists = Len(Names(sName).Name) <> 0 
     On Error GoTo 0 

     '~~> If not then recreate it 
     If DoesRngNameExists = False Then _ 
     ThisWorkbook.Names.Add Name:=sName, RefersToR1C1:="=Sheet1!R1C1" 
    End If 

Letscontinue: 
    Application.EnableEvents = True 
    Exit Sub 
Whoa: 
    MsgBox Err.Description 
    Resume Letscontinue 
End Sub 

注：在相关薄片的薄片代码区域中的代码。见下面的截图。