使用Excel VBA代码，在删除单元格中的seleted选项时，如何返回单元格的先前状态？

问：

我有一个简单的担忧，即将单元格恢复到以前的状态（通常单元格包括使用 DATA>DATA VALIDATION 部分）为一系列单元格生成的数据验证列表。

我有一个宏，当我从下拉列表中选择“无”选项时，它允许我删除单元格中的数据验证列表。

这是我正在使用的代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cells As Range
    Dim DV As Range
    Dim isect2 As Range
    Dim valid As Validation
    Set DV = Range("K3:K28")
    Set isect2 = Intersect(Target, DV)
    Set valid = Selection.Validation
    If isect2 Is Nothing Then
        Exit Sub
    Else
        For Each Cells In isect2
            If Cells.Value = "None" Then
                Set valid = Selection.Validation
                Selection.Validation.Delete
            Else
                **Application.EnableEvents = False**
            End If
        Next Cells
    End If
End Sub

当单元格中删除所选选项（“none”）时，我想将单元格恢复到以前的状态（恢复相同的数据验证列表）。

编辑

Sub Macro7(ByVal Target As Range)

Dim Cells As Range
Dim DV As Range
Dim isect2 As Range
Dim valid As Validation

    Set DV = Range("K3:K28")
    Set isect2 = Intersect(Target, DV)
    
    Set valid = Selection.Validation
    If isect2 Is Nothing Then
        Exit Sub
    Else
        For Each Cells In isect2    
            If Cells.Value = "None" Then
        
                Set valid = Selection.Validation
                Selection.Validation.Delete
        
            ElseIf IsEmpty(Cells.Value) = True Then
        
                With Selection.Validation
                    .Delete
                    .***Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=sheet4!$A$2:$A$18"***        
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With
        
            End If    
        Next Cells
    End If
End Sub