移动后重新编号行

Question

我有一个包含25行任务的电子表格。如果一项任务成为热门话题，我需要移动或重新编号该行以使其位于顶部，我希望excel能够以升序对下面的行进行重新编号。 （即，如果我将19更改为数字1，则其他所有内容都会向下移动并按升序重新编号）。

Answer 1

那么，一个简单的例子，只是为了演示：

因此，您可以根据需要对A列进行排序和添加。

Answer 2

说我们的任务列表如下：

将此代码放置在工作表代码区域中：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 1 Then Exit Sub
    Cancel = True
    Rows("1:1").Insert Shift:=xlDown
    Target.EntireRow.Copy Range("A1")
    Target.EntireRow.Delete
End Sub

当妻子告诉您她已经分娩时，双击单元格 A4 ，任务列表将变为：