使用variables删除sorting表中input的最后一个数据

我有一个数据录入页面，基本上是前端用户将与之交互input数据。 包含数据的工作表是隐藏的，无法访问。 我希望他们可以select删除他们添加的最后一个logging。 我正在通过将最后input的数字作为variableslastReg来解决这个问题。 然后整行被删除。 查找最后一行的选项在这里不适用，因为在添加数据时，数据在表中sorting。

Public lastReg As Long Sub DeleteLastReg() Dim fcell As Range Set regRange = ThisWorkbook.Sheets("Registration").Range("C:C") For Each fcell In regRange.Cells If fcell.Value = lastReg Then MsgAns = MsgBox("You are about to delete Registration Number: " & lastReg & ". Do you wish to continue?", vbYesNo) If MsgAns = vbNo Then Exit Sub Else ThisWorkbook.Sheets("Registration").Rows(fcell).EntireRow.Delete End If End If Next fcell End Sub 

错误在于：

ThisWorkbook.Sheets（ “登记”）。行（FCELL）.EntireRow.Delete

我不知道如何引用该行。

Answer 1

您已经将fcell定义为相关工作表中的一个单元格。 所以

 fcell.EntireRow.Delete 

应该足够了

Answer 2

fcell是一个范围。 但是， row()函数需要一个数字。 所以，这应该工作得很好：

 ThisWorkbook.Worksheets("Registration").Rows(fcell.Row).EntireRow.Delete