Excel formula 移动后对行重新编号

我有一个包含25行任务的电子表格。如果某项任务成为热门话题，我需要移动或重新编号该行以使其位于顶部，并且我希望excel按升序重新编号下面的行。（也就是说，如果我将19改为1，那么其他所有内容都将向下移动，并按升序重新编号）。

因此，举个简单的例子，只是为了演示：

---

因此，您可以按照自己的意愿对列A进行排序和包含，也可以不包含列A。

因此，简单的示例，仅用于演示：

---

因此，您可以按照自己的意愿对列A进行排序和包含，也可以不包含列A。

假设我们的任务列表如下所示：

将此代码放入工作表代码区域：

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

Private子工作表\u双击之前（ByVal目标作为范围，Cancel作为布尔值）
如果为Target.Column 1，则退出Sub
取消=真
行（“1:1”）。插入移位：=xlDown
Target.EntireRow.Copy范围（“A1”）
Target.EntireRow.Delete
端接头

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

---

假设我们的任务列表如下：

将此代码放入工作表代码区域：

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

Private子工作表\u双击之前（ByVal目标作为范围，Cancel作为布尔值）
如果为Target.Column 1，则退出Sub
取消=真
行（“1:1”）。插入移位：=xlDown
Target.EntireRow.Copy范围（“A1”）
Target.EntireRow.Delete
端接头

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

使用row（）函数给出数字，必要时添加偏移量。使用row（）函数给出数字，必要时添加偏移量。