为什么我的陈述询问两个变量是否相等不起作用？

Question

Private Sub CommandButtonUndo_Click()

Dim Answer As Integer, LastRow As Variant, PreviousLastRow As Variant

LastRow = Worksheets("DATA").Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
PreviousLastRow = Names("PreviousLastRow").Value

If PreviousLastRow = LastRow Then
    MsgBox "Can only undo Once"
    Else
    If LastRow > 1 Then
        Answer = MsgBox("Are you sure you want to Undo the Previous Input?", vbYesNo + vbQuestion, "New Job")
            If Answer = vbYes Then
                Worksheets("DATA").Rows(LastRow).ClearContents
                Names("PreviousLastRow").Value = LastRow - 1
            End If   
    End If 
End If
End Sub

该代码的想法是阻止用户多次单击撤消按钮。 这让我绊倒的具体部分是If PreviousLastRow = LastRow Then这似乎被忽略并始终遵循 else 路径，即使我知道这两个变体是相同的

这是否与代码看不到相同的两个数字有关？

Answer 1

从Name.Value文档中：

返回或设置一个字符串值，该值表示定义名称要引用的公式。

PreviousLastRow = Names("PreviousLastRow").Value

这将返回=10 ，因此去掉=并CLng结果：

PreviousLastRow = Names("PreviousLastRow").Value
PreviousLastRow = Replace(PreviousLastRow, "=","")
PreviousLastrow = Clng(PreviousLastRow)